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

type
  iFile = file of integer;
 
var
  f, g: iFile;
  s, count: integer;
 
procedure printFile(ff: iFile);
var
  v: integer;
begin
  reset(ff);
  while not EoF(ff) do
  begin
    read(ff, v);
    write(v:3);
  end;
  writeln;
  reset(ff);
end;
 
begin
  count := 0;
  assign(f, 'f.in'); assign(g, 'g.out'); 
  writeln('Входной файл: ');printFile(f);
  rewrite(g);  
  repeat
    inc(count);
    while not EoF(f) do 
    begin
      read(f, s);
      case count of
        1: if s mod 2 = 0 then write(g, s);
        2: if s mod 2 <> 0 then write(g, s);
      end;      
    end;
    reset(f);   
  until count = 2;
  close(g); 
  writeln('Итоговый файл: ');printFile(g);
end.

file of integer;

var
f:file of integer;
i:integer;
begin
  assign(f,'f.in');
  rewrite(f);
  for i:=1 to 20 do
  write(f,10-random(20));
  close(f);
end.

 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
    begin    
    read(f, ch);
    {if ch<>#13} then write(g, ch);  //убрать скобки для улучшенного вывода, если нужно
    dec(count);
    reset(f);   
  end;
  close(g); 
  writeln('Итоговый файл: ');printFile(g);
end.

 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.