Переписать компоненты файла f в файл g - PascalABC.NET

Формулировка задачи:

1. Дано файл целых чисел f . Переписать компоненты файла f в файл g так , чтобы сначала были записаны все положительные числа , а затем - все отрицательные .

Решение задачи: «Переписать компоненты файла f в файл g»

Листинг программы

const
  fName = 'f.dat';
  gName = 'g.dat';
  
begin
  var f, g : File of Integer;
  var n : Integer;
  
  Rewrite(g, gName);
  
  Reset(f, fName);
  while Not EOF(f) do
    begin
      Read(f, n);
      if n > 0 then Write(g, n);
    end;
  Close(f);
  
  Reset(f, fName);
  while Not EOF(f) do
    begin
      Read(f, n);
      if n < 0 then Write(g, n);
    end;
  Close(f);
 
  Close(g);
end.

Объяснение кода листинга программы

Задана задача переписать компоненты файла f в файл g.
Компоненты файла f содержат целые числа, которые необходимо переписать в файл g.
Файл f открыт для чтения, файл g открыт для записи.
Переменные f и g типа File of Integer, переменная n типа Integer.
Файл g перезаписывается.
Цикл while Not EOF(f) считывает компоненты файла f и записывает их в файл g, если они больше нуля.
Файл f закрывается, затем открывается снова для чтения.
Цикл while Not EOF(f) считывает компоненты файла f и записывает их в файл g, если они меньше нуля.
Файл g закрывается.