Вычислить среднюю зарплату мужчин

uses crt;
 type myrec=record gen:char; fam:string[20]; age:byte; zar:real;
 end;
 
var x,gf,gm:array[0..19] of myrec; m,n,f:integer;
    f1,f2:text; i:integer; s:real;
    
function tf(t:myrec):boolean;
 begin
  if(t.age>17) and (t.age<31) and (t.gen='f') then
   tf:=true else tf:=false;
 end;
 procedure viborka_f; var i:integer;
  begin
   f:=-1; for i:=0 to n do 
    if tf(x[i]) then begin
     f:=f+1; gf[m]:=x[i];
    end;
  end;
  
 function tm(t:myrec):boolean;
  begin
   if (t.zar>s) and (t.gen='m') then
    tm:=true else tm:=false;
  end;
 procedure viborka_m; var i:integer;
  begin
   m:=-1; for i:=0 to n do
    if tm(x[i]) then begin
     m:=m+1; gm[m]:= x[i];
    end;
  end;
 
 procedure print(n:byte);
  begin
   for n:=0 to n do writeln(x[n].gen:2, x[n].fam:20, x[n].age:4, x[n].zar:0:2);
  end;
 
 procedure selectionsort; var i,j,k:integer; t:myrec;
  begin
   for i:=0 to (f-1) do begin k:=i;
   for j:=i+1 to f do
    if gf[j].age>gf[k].age then k:=j;
    t:=gf[i]; gf[i]:=gf[k]; gf[k]:=t;
   end;
  end;
 
 procedure insetrion; var i,j,k:integer; t:myrec;
  begin
   for i:=0 to (m-1) do begin k:=i;
   for j:=i+1 to m do
    if gm[j].zar>gm[k].zar then k:=j;
    t:=gm[i]; gm[i]:=gm[k]; gm[k]:=t;
   end;
  end;
 
begin
 clrscr;
 assign(f1,'f1.txt'); reset(f1);
 assign(f2,'f2.txt'); reset(f2); n:=-1;
 while not eof(f1) do begin
  n:=n+1; readln(f1, x[n].gen, x[n].age);
  readln(f2, x[n].zar, x[n].fam);
 end;
  viborka_f;
  s:=0; m:=0;
  for i:=0 to n do
   if x[i].fam='m' then begin m:=m+1; s:=s+x[i].zar; end;
  s:=s/m; writeln('Zar=', s:0:2);
  viborka_m; 
  selectionsort; 
  insetrion; print(n);
 end.