Переписать файл f.txt, состоящий из строк чисел в другой, заменив четные числа нулями, а нечетные единицами -Pascal(Паскаль)

uses
  crt;
var
  x: integer;
  f1,f2: text;
  s:string;
begin
  clrscr;
  assign(f1,'ishod.txt');
  assign(f2,'itog.txt');
  reset(f1);
  rewrite(f2);
  while not EOF(f1) do
   begin
    if not eoln(f1) then
     begin
      read(f1,x);
      if x mod 2 =0 then x:=0
      else x:=1;
      write(f2,x,' ');
     end
    else
     begin
      readln(f1,s);
      writeln(f2,'');
     end;
   end;
  close(f1);
  close(f2);
write('Fail zapisan!');
readln
end.