Записать в файл С все четные числа файла F, а в файл N - все нечетные.

uses crt;
var f,c,n:file of integer;
    k,i,b:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(c,'fileC');
rewrite(c);
assign(n,'fileN');
rewrite(n);
repeat
write('Введите целое положительное число k=');
readln(k);
until k>0;
for i:=1 to k do
 begin
  b:=random(100);
  write(f,b);
 end;
reset(f);
writeln('Содержание файла F:');
while not eof(f) do
 begin
  read(f,b);
  write(b,' ');
  if odd(b) then write(n,b)
  else write(c,b);
 end;
close(f);
writeln;
writeln('Файл четных чисел:');
reset(c);
if filesize(c)=0 then writeln('Четных чисел нет')
else
while not eof(c) do
 begin
  read(c,b);
  write(b,' ');
 end;
close(c);
writeln;
writeln('Файл нечетных чисел:');
reset(n);
if filesize(n)=0 then writeln('Четных чисел нет')
else
while not eof(n) do
 begin
  read(n,b);
  write(b,' ');
 end;
close(n);
readln
end.