Переписать в новый файл из исходного сначала все нечѐтные символы, а затем все чѐтные в обратном порядке

type rad = file of integer;{определяем имя типа файловых данных}
  var f, g : rad; {определяем переменную с типом rad }
      n,k: integer;
      
      
procedure nechet (var f,g :rad; n:integer);{описываем процедуру  }
  var i,c, k: integer;
    begin
      rewrite (f);{открываем (создаем файл))}
      for i:=2 to n  do {запускаем цикл:перебираем все символы, начиная со 2 и заканчивая n}
         begin       
           c:=0;
             for k:=2 to i do {начинаем перебирать цифры, начиная с 2}
                 if i mod 2<>1 then {задаем условие, что число должно быть нечетным}
                    c:=c+1;{cчетчик увеличиваем на 1}
                If c=1 then write(g,i); {если находим это число, тогда записываем его в файл g}
        end; 
    
    end;
 
//procedure obrat (var f:rad; n:integer);{описываем процедуру  }
 
 
begin
      assign (f,'proba.txt');{связываем файл proba.txt с переменной f}
      assign (g,'proba2.txt');
      write ('введите количество элементов списка =  ');{вводим n-значение последнего из элемонтов, с которыми будем работать}
      readln (n);{выводим его на экран}
      nechet (f,g,n);{запускаем процедуру }
      reset(f);{открываем файл proba.txt}
      reset(g);
      
      while not eof (f) do{запускам цикл, который будет работать, пока не достигнут конец файла}
          begin
            read(f,k);{вводим значения}
            write(k:5);{выводим на экран}
          end;
      close (f);{закрываем файл}
      close (g);     
   
 end.

type rad = file of integer;{определяем имя типа файловых данных}
  var f, g : rad; {определяем переменную с типом rad }
      n,k: integer;
      
      
procedure nechet (var f,g :rad; n:integer);{описываем процедуру  }
  var i,c, k: integer;
    begin
      rewrite (f);{открываем (создаем файл))}
      rewrite (g);{открываем (создаем файл))}
      for i:=2 to n  do {запускаем цикл:перебираем все символы, начиная со 2 и заканчивая n}
         begin       
           c:=0;
             for k:=2 to i do {начинаем перебирать цифры, начиная с 2}
                 if i mod 2<>1 then {задаем условие, что число должно быть нечетным}
                    c:=c+1;{cчетчик увеличиваем на 1}
                If c=1 then write(g,i); {если находим это число, тогда записываем его в файл g}
        end; 
    
    end;
 
//procedure obrat (var f:rad; n:integer);{описываем процедуру  }
 
 
begin
      assign (f,'proba1.txt');{связываем файл proba.txt с переменной f}
      assign (g,'proba2.txt');
      write ('введите количество элементов списка =  ');{вводим n-значение последнего из элемонтов, с которыми будем работать}
      readln (n);{выводим его на экран}
      nechet (f,g,n);{запускаем процедуру }
      reset(f);{открываем файл proba.txt}
      reset(g);
      
      while not eof (f) do{запускам цикл, который будет работать, пока не достигнут конец файла}
          begin
            read(f,k);{вводим значения}
            write(k:5);{выводим на экран}
          end;
      close (f);{закрываем файл}
      close (g);     
   
 end.

begin
 //Создадим типизированный файл proba1.dat, наполним его числами и закроем
 WriteElements&<Integer>('proba1.dat', ArrRandom(20));
 
 var f, g: file of integer;
 Assign(f, 'proba1.dat');
 Assign(g, 'proba2.dat');
 Reset(f); //открыть на чтение
 Rewrite(g); //открыть(создать) на перезапись
 var n, position: integer;
 
 while not Eof(f) do 
  begin
   position += 1;  
   Read(f, n); 
   if odd(n) then Write(g, n) 
  end;
 
//перебираем элементы с конца файла
 while position > 0 do 
  begin 
    position -= 1;
    Seek(f, position); //установить файловый указатель на элемент номер position
    Read(f,n); 
    if not odd(n) then Write(g, n) 
  end;
 
 Close(f);
 Close(g);
 
//Проверка 
 f.Elements.Println; //вывести содержимое proba1.dat
 g.Elements.Println; //вывести содержимое proba2.dat
end.

begin
 //Создадим типизированный файл proba1.dat, наполним его числами и закроем
 WriteElements&<Integer>('proba1.dat', ArrRandom(20));
 
 var f, g: file of integer;
 Assign(f, 'proba1.dat');
 Assign(g, 'proba2.dat');
 Reset(f); //открыть на чтение
 Rewrite(g); //открыть(создать) на перезапись
 var n: integer;
 var spisok := new List<integer>;
 
 while not Eof(f) do 
  begin
   Read(f, n); 
   if odd(n) then Write(g, n) else spisok += n;
  end;
 
 Reverse(spisok);
 foreach n in spisok do Write(g, n);
 
 Close(f);
 Close(g);
 
//Проверка 
 f.Elements.Println; //вывести содержимое proba1.dat
 g.Elements.Println; //вывести содержимое proba2.dat
end.