Исправить ошибки в коде

program zap52218;
type dan=record
       fam:string;
       vozr:integer;
       pol:char;
       rost:real;
       ves:real;
       temp:real;
       davv:real;
       davn:real;
     end;
var z:dan;
    i,k:integer;
    f1,f2:text;
begin
  assign(f1,'d52218.pas');
  reset(f1);
  assign(f2,'r52218.pas');
  rewrite(f2);
  k:=0;
writeln(f2,' Svedenia o mujchinah moloje 25 let s verh.davl. > 140:');
writeln(f2,' ':10,' FIO    Vozr    Rost    Ves   Temp   VDavl   NDavl');
  writeln(f2);
  with z do
    begin
      repeat
          readln(f1,fam);
          readln(f1,vozr);
          readln(f1,pol);
          readln(f1,rost);
          readln(f1,ves);
          readln(f1,temp);
          readln(f1,davv);
          readln(f1,davn);
  if ((vozr<25) and (pol='m') and (davv>140)) then
  begin
  k:=k+1;
writeln(f2,fam:15,vozr:8,rost:8:2,ves:8:2,temp:8:2,davv:8:2,davn:8:2);
        end;
     until eof(f1);
 end;
     if k=0 then
writeln(f2,'Net mujchinah moloje 25 let s verh.davl. > 140:')
else
writeln(f2,'Kol-vo mujchinah moloje 25 let s verh.davl. > 140=',k);
  close(f1);close(f2)
end.