Найти максимальный возраст туриста - Turbo Pascal

uses crt;
const n=20;{число элементов}
{наша запись}
type
 rec = record
 fam: string;{фамиля}
 sex: string;{пол}
 let: integer{возвраст};
 end;
 
var a: array[1..n] of rec;{масив,где будут храниться даные}
    i: integer;{счетчик}
    max: integer;{переменая,куда будим записывать максимальный возраст}
    m_col, g_col: integer;{кол во мужиков и женщин}
 f:text;
    s:string;
        c:integer;
 
begin
  clrscr;{очищаем экран}
  writeln('Vvedite informaziu:');
{запускаем цикл от 1 до 20}
  for i:=1 to n do
  begin
 assign(f,'text.txt');
 reset(f);
 n:=0;
 while not eof(f) do
  begin
   readln(f,s);//читаем строку
   n:=n+1;//считаем
   a[n].fam:=copy(s,1,pos(' ',s)-1);//первое слово до пробела
   delete(s,1,pos(' ',s));//удаляем его
   a[n].sex:=copy(s,1,pos(' ',s)-1);//второе слово
   delete(s,1,pos(' ',s)); 
   val(s,a[i].let,c);//остаток строки в число
 
  end;
  {Находим самый большой возвраст}
  max:= a[1].let;
  for i:=2 to n do
  if a[i].let>max then max:=a[i].let;
  writeln('Samomu staromu: ',max,' let');{выводим его}
  writeln;
  {Поиск самых страых}
  writeln('Familiy samih starshih:');
  {запускаем цикл от 1 до 20}
  for i:=1 to n do
  if a[i].let=max then{если max равняетмя a[i].let }
  writeln(a[i].fam);{то выводим фамилию с этим возрастом}
  {Подсчет кол-во муж. и женщин}
  m_col:=0; g_col:=0;
  for i:=1 to n do
  begin
  if a[i].sex='m' then inc(m_col);
  if a[i].sex='g' then inc(g_col);
  end;
  writeln;
  writeln('Col-vo boys: ',m_col,' ','Col-vo gerls: ',g_col);{вывод кол-ва муж. и женщин}
 
  readln;
end.