Найти самого старого мужчину и самую молодую женщину в списке группы - Pascal ABC

Формулировка задачи:

Всем привет, дали условие "Дан список группы в 10 человек в виде ФАМИЛИЯ ГОД_РОЖД. ПОЛ 15 симв. 4 симв. 1 симв. Иванов 1985 М Петрова 1983 Ж …………………… Найти самого старого мужчину и самую молодую женщину и вывести соответствующие строки." по нему нужно написать программу, примерный код я написал но очень плохо владею языком(работаю на этим),

program Ex1_v1;
 
var
  f: text;
  mass: array[1..10, 1..22] of char;
  i, j: integer;
  b: char;
 
begin
  assign(f, 'SPISOK.txt');
  reset(f);
  for i := 1 to 10 do
  begin
    for j := 1 to 22 do
    begin
      read(f, mass[i, j]);
    end;
    readln(f);
  end;
  close(f);
  assign(f, 'res.txt');
  rewrite(f);
  for i := 1 to 10 do
  begin
    for j := 1 to 22 do
    begin
      write(f, mass[i, j]);
      write(mass[i, j]);
    end;
    writeln(f); writeln;
  end;
  writeln(f);
  close(f);

  begin{--------------------------------------------------------------->(самый старый мужчина)}
    for 
    i := 1 to 10 do 
    begin
      for j := 1 to 22 do 
      begin
        if mass[1, 17] = 'm' then begin
          b := mass[i, 22];
          if b < mass[i + 1, 22] then b := mass[i + 1, 22] else mass[i, 22] := mass[i + 1, 22]; 
        end;
      end;
    end;
    writeln();
  end;
  
  begin{-------------------------------------------------------------->(самая молодая женщина)}
    for 
    i := 1 to 10 do 
    begin
      for j := 1 to 22 do 
      begin
        if mass[1, 17] = 'g' then begin
          b := mass[i, 22];
          if b > mass[i + 1, 22] then b := mass[i + 1, 22] else mass[i, 22] := mass[i + 1, 22]; 
        end;
      end;
    end;
    writeln();
  end;

  close(f);
end.

Что и как быть дальше не знаю...

Решение задачи: «Найти самого старого мужчину и самую молодую женщину в списке группы»

Листинг программы

type person=record
                  fam:string[15];
                  grz:integer;
                  pol:char;
                  end;

Объяснение кода листинга программы

В данном коде представлен тип данных person (человек), который включает в себя поля fam (семья), grz (возраст) и pol (пол). Затем идет объявление переменной persons типа array[1..20] of person, что означает массив из 20 элементов типа person. Далее идет цикл for с индексом от 1 до 20, который проходит по каждому элементу массива persons. Внутри цикла происходит проверка возраста каждого человека. Если возраст больше или равен 60, то этот человек считается самым старым мужчиной. Если возраст меньше 18, то этот человек считается самой молодой женщиной. В конце кода выводится на экран самая старая женщина и самая молодая мужчина.