Записать в файл все четные числа, а затем - все нечетные - Pascal

 type iFile = file of char;
 
var
  f, g: iFile;
  i, s, count, lengthF: integer;
  ch: char;
 
procedure printFile(ff: iFile);
var
  v: char;
begin
  reset(ff);
  while not EoF(ff) do
  begin
    read(ff, v);
    write(v);
  end;
  reset(ff);writeln;
end;
 
begin
  lengthF := 0;
  assign(f, 'f.txt'); assign(g, 'g.txt'); 
  writeln('Входной файл: ');printFile(f);
  writeln;
  rewrite(g);
  while not EoF(f) do
  begin
    read(f, ch);
    lengthF := lengthF + 1;
  end;
  count := lengthF;
  reset(f);
  while count >0 do
  begin
    for i := 1 to count do
    read(f, ch);
    {if ch<>#13then} write(g, ch);  //убрать скобки для улучшенного вывода, если нужно
    dec(count);
    reset(f);   
  end;
  close(g); 
  writeln('Итоговый файл: ');printFile(g);
end.