Все четные числа файла записать во второй файл, а нечетные — в третий файл

uses crt;
var f1,f2,f3:file of integer;
    a:integer;
begin
clrscr;
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
assign(f3,'fileh');
rewrite(f3);
writeln('Введите в файл целые числа, окончание ввода ноль:');
repeat
readln(a);
write(f1,a);{создание 1 файла}
until a=0;
clrscr;
writeln('Содержание исходного файла:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
  if odd(a) then write(f3,a){создание 3 файла}
  else write(f2,a);{создание 2 файла}
 end;
writeln;
close(f1);
reset(f2);
writeln('Содержание второго файла:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,a);
  write(a,' ');
 end;
writeln;
close(f2);
writeln('Содержание третьего файла:');
reset(f3);
while not eof(f3) do
 begin
  read(f3,a);
  write(a,' ');
 end;
close(f3);
readln
end.

program pr6;
uses crt;
var f1,f2,f3:Text;
    a:integer;
begin
clrscr;
assign(f1,'I:\01.txt');
rewrite(f1);
assign(f2,'I:\02.txt');
rewrite(f2);
assign(f3,'I:\03.txt');
rewrite(f3);
writeln('ўўҐ¤ЁвҐ ў д*Ё« жҐ«лҐ зЁб«*,®Є®*з**ЁҐ ўў®¤* *®«м:');
repeat
readln(a);
write(f1,' ');
write(f1,a);{ᮧ¤**ЁҐ 1 д*Ё«*}
 
until a=0;
clrscr;
writeln('ᮤҐа¦**ЁҐ Ёб室*®Ј® д*Ё«*:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
  if odd(a) then
   begin
   write(f3,' ');
   write(f3,a);{ᮧ¤**ЁҐ 3 д*Ё«* }
 
   end
 
  else begin
   write(f2,' ');
   write(f2,a);{ᮧ¤**ЁҐ 2 д*Ё«*}
 
   end;
 end;
writeln;
close(f1);
reset(f2);
writeln('ᮤҐа¦**ЁҐ ўв®а®Ј® д*Ё«*  зҐв*лҐ зЁб«*:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,a);
  write(a,' ');
 end;
writeln;
close(f2);
writeln('ᮤҐа¦**ЁҐ ваҐв쥣® д*Ё«*  *ҐзҐв*лҐ зЁб«*:');
reset(f3);
while not eof(f3) do
 begin
  read(f3,a);
  write(a,' ');
 end;
close(f3);
readln
end.