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

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.

const fname='SPISOK.TXT';
      n=10;
      m=22;
type mass=array[1..n] of string[m];
procedure readfile(var f:text;var a:mass);
var i:integer;
    s:string[m];
begin
assign(f,fname);
reset(f);
i:=0;
while not seekeof(f) do
 begin
  inc(i);
  readln(f,a[i]);
 end;
close(f);
end;
procedure minmax(a:mass;var f:text);
var i,mz,gn,min,max:integer;
begin
mz:=0;//есть ли мужчины
gn:=0;//есть ли женщины
min:=0;//мин. год рождения мужчины
max:=3000;//макс. год рождения женщины
for i:=1 to n do
 begin
  if (a[i][m]='M') and(strtoint(copy(a[i],17,4))<max) then
   begin
    max:=strtoint(copy(a[i],17,4));
    mz:=i;
   end;
  if (a[i][m]='G')and(strtoint(copy(a[i],17,4))>min) then
   begin
    min:=strtoint(copy(a[i],17,4));
    gn:=i;
  end;
 end;
assign(f,'res.txt');
rewrite(f);
if mz=0 then writeln(f,'В списке нет мужчин')
else writeln(f,'Самый старый мужчина: ');
writeln(f,a[mz]);
if gn=0 then writeln(f,'В списке нет женщин')
else writeln(f,'Самая молодая женщина:');
write(f,a[gn]);
close(f);
writeln('Результат записан в файл res.txt');
end;
var f: text;
    a: mass;
begin
readfile(f,a);
minmax(a,f);
end.

if mz=0 then writeln(f,'В списке нет мужчин')

procedure minmax(var a: mass; var f: text);
var
  i, mz, gn, min, max: integer;
  begin
  for i := 1 to n do
    if (a[i][m] = 'М') and (strtoint(copy(a[i], 17, 4)) < max) then
    begin
      max := strtoint(copy(a[i], 17, 4));
      mz := i;
    end;
    if (a[i][m] = 'Ж') and (strtoint(copy(a[i], 17, 4)) > min) then
    begin
      min := strtoint(copy(a[i], 17, 4));
      gn := i;
    end;
  end;