Определить первое по порядку нечетное и последнее четное числа

{Создать типизированный файл целых чисел. Записать в него с консоли
последователь-ность целых чисел, конец последовательности (терминатор) -
ноль, который не запи-сывается в файл. Определить первое по
порядку нечетное и последнее четное числа
и их позиции в файле (нумерация данных в файле начинается с нуля).
Предусмотреть случай, когда таких чисел в файле нет. Удалить из файла
все числа, находящиеся между ними.
}
uses
  sysutils;
var
  f,g:file of integer;
  x:integer;
  j,k,n,temp,chet,kc,kn,nech,i:integer;
  nechet:boolean;
begin
  assign(f,'data_f.dat');
  assign(g,'data_g.dat');
  rewrite(f);
  while true do
    begin
      readln(x);
      if x=0 then
        break;
      write(f,x);
    end;
  close(f);
 
  kn:=-maxint;  kc:=-maxint;  i:=0; nechet:=true;
  reset(f);
  while not eof(f) do
    begin
      read(f,x);
      if (odd(x)) and nechet then
        begin
          nech:=x;
          kn:=i;
          nechet:=false;
        end;
      if not odd(x) then
        begin
          chet:=x;
          kc:=i;
        end;
      write(x:3);
      inc(i);
    end;
  n:=filesize(f)-1;
  close(f);
 
  writeln;
  if kn<>-maxint then
    writeln('Первое нечетное: ',nech,', в позиции: ' ,kn)
  else
    writeln('Нечетных чисел нет.');
  if kc<>-maxint then
    writeln('Последнее четное: ',chet,', в позиции: ' ,kc)
  else
    writeln('Четных чисел нет.');
  if kc>kn then
    begin
      temp:=kn;
      kn:=kc;
      kc:=temp;
    end;
 
//  writeln(kc,' ',kn,' ',n);
  j:=0;
  reset(f);
  rewrite(g);
 
  if (kn<>-maxint) and (kc<>-maxint) then
    begin
      for i:=kn+1 to n do
        begin
          seek(f,i);
          read(f,x);
  //        writeln(x:3);
          seek(g,j);
          write(g,x);
          inc(j);
        end;
    end;
  close(f);
  close(g);
 
  erase(f);
  rename(g,'data_f.dat');
 
  writeln;
  writeln('Обработанный файл: ');
  reset(f);
  while not eof(f) do
    begin
      read(f,x);
      write(x:3);
    end;
  close(f);
  readln;
end.