Помогите откоректировать. Создать файл целых чисел. Найти количество элементов, делящиеся на 5

program lr;
uses crt;
var z,n,i,k:integer;
f:file of integer;
begin
clrscr;
write('kolicestvo cifer');
readln(n);
assign(f,'file1.txt');
rewrite(f);
for I:=1 to n do
begin
write('f=');
readln(z);
write(f,z);
end;
close(f);
reset(f);
while nor eof(f)do
begin
read(f,z);
if z mod 5=0 then begin z:=0;
inc(k);
end;
end;
seek(f,0);
write(f,z);
close(f);
writeln('kolicestvo element kotorie delzca na 5 =:',k);
readln;
end.

program lr;
uses crt;
var z,n,i,k:integer;
    f:file of integer;
begin
clrscr;
write('kolicestvo cifer');
readln(n);
assign(f,'file1.txt');
rewrite(f);
for I:=1 to n do
 begin
  write('z=');
  readln(z);
  write(f,z);
 end;
reset(f);
writeln('ishodnyj fail');
k:=0;
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,z);
  write(z,' ');
  if z mod 5=0 then
   begin
    z:=0;
    seek(f,i);
    write(f,z);
    inc(k);
   end;
 end;
writeln;
writeln('kolicestvo element kotorie delzca na 5=',k);
seek(f,0);
writeln('zamena na 0:');
while not eof(f) do
 begin
  read(f,z);
  write(z,' ');
 end;
close(f);
readln;
end.