Найти ошибочку...

program lab_10;
uses crt;
type zap=record
     fam:string[20];
     imia:string[20];
     god:integer;
     gruppa:string[20];
     pol:string[2];
     end;
fail = file of zap;
procedure zapis(var zp:zap);
begin
write('Vvedite familiu: '); readln(zp.fam);
write('Vvedite imia: '); readln(zp.imia);
write('Vvedite god postuplenija: '); readln(zp.god);
write('Vvedite gruppu: '); readln(zp.gruppa);
write('Vvedite pol: '); readln(zp.pol);
end;
var f:fail;
    z:zap;
    i,k:word;
begin;
clrscr;
assign(f,'f.DAT');
rewrite(f);
i:=1;
repeat
writeln;
writeln('Uchenik ',i);
Zapis(z);
write(f,z);
i:=i+1;
until i=2;
close(f);
reset(f);
writeln;
writeln('Zhensokogo pola:');
while not eof(f) do
k:=0;
for i:=1 to 15 do
if z.pol='zh' then
  begin
   writeln(z.fam,'  ',z.imia,'  ',z.god,'  ',z.gruppa,'  ',z.pol);
    k:=1;
  end;
if k=0 then writeln('Devushek net v etoi gruppe');
end.

i:=1;
repeat
writeln;
writeln('Uchenik ',i);
Zapis(z);
write(f,z);
i:=i+1;
until i=2;