Ввести ФАЙЛ целых положительных чисел F1

uses crt;
var f1,f2:file of integer;
    a,m,i:integer;
begin
clrscr;
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
writeln('Введите в файл целые положительные числа, окончание ввода 1:');
repeat
 repeat
  readln(a);
 until a>0;
write(f1,a);{создание 1 файла}
until a=1;
clrscr;
writeln('Содержание исходного файла:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
 end;
writeln;
close(f1);
repeat
write('Введите целое положительное число для поиска m=');
readln(m);
until m>0;
reset(f1);
for i:=0 to filesize(f1)-1 do
 begin
  read(f1,a);
  if a<m then
   begin
    write(f2,a);
    seek(f1,i);
    a:=0;
    write(f1,a);
   end;
 end;
close(f1);
writeln('Содержание первого файла после замены на 0:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
 end;
close(f1);
writeln;
writeln('Содержание второго файла:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,a);
  write(a,' ');
 end;
close(f2);
readln
end.