Распечатать все содержимое файла в виде таблицы

@Rod9i · Регистрация: 12.05.2016

Author24 — интернет-сервис помощи студентам

есть список: Фамилия (в файле)
Имя
Пол (М , Ж)
Год рождения
Рост
Вес

надо написать программу, которая распечатывает все содержимое файла в виде таблицы. это получилось

но в добавок сделать и вывести: 1. Средний рост девушек 2. Фамилию самой молодой девушки 3. Имя самого высокого студента 4. Имя девушки, у которой соотношение вес / рост минимально

вот с этим не могу справиться. пожалуйста, помогите!
файл со списком прилагается.

Pascal

type
  student = record  
    family, name, sex, old, hight, weight: string;
  end;
 
var
  f: Text;
  Str: String;
  List: student;
//  c, x, x1, x2, x3, x4, u: integer;
  y: real;
begin
  Assign(f,'inmy.txt');
  Reset(f);
 
 textcolor(red);
  WriteLn('*  Фамилия   * Имя  * пол * год рождения * рост * вес *');
  while not Eof(f)
  do 
  begin
    ReadLn(f, Str);
    List.family := Copy(Str, 1, 12);
    List.name := Copy(Str, 13, 12);
    List.sex := Copy(Str, 25, 1);
    List.old := Copy(Str, 27, 5);
    List.hight := Copy(Str, 32, 3);
    List.weight := Copy(Str, 36, 2);
 
  textcolor(green);
    WriteLn(' * ', List.family,' * ', List.name, ' * ', List.sex, ' * ', List.old, ' * ', List.hight, ' * ', List.weight, ' * '); 
  textcolor(white);
  end; 
  Close(f);
  Reset(f);
 
 
end.

	14.05.2016, 14:14