Переписать с сохранением порядка следования компоненты файла f1 в файл f2 - Pascal (80888)

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

Помогите! Даны файлы f1 и f2, содержащие целые числа. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Использовать вспомогательный файл h.

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

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

procedure CopyFile(name1, name2 : String);
var f1, f2 : File of Integer; v : Integer;
begin
  Assign(f1, name1); Assign(f2, name2);
  Reset(f1); Rewrite(f2);
  while Not EOF(f1) do
    begin
      Read(f1, v); Write(f2, v);
    end;
  Close(f1); Close(f2);
end;
 
var
  f1, f2, h : String;
begin
  Write('Имя файла f1: '); ReadLn(f1);
  Write('Имя файла f2: '); ReadLn(f2);
  Write('Имя файла  h: '); ReadLn(h );
  WriteLn('Копирование: ', f1, ' -> ', h ); CopyFile(f1, h );
  WriteLn('Копирование: ', f2, ' -> ', f1); CopyFile(f2, f1);
  WriteLn('Копирование: ', h , ' -> ', f2); CopyFile(h , f2);
  WriteLn('Готово!');
end.

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

Создаются переменные для имен файлов:
- name1 (значение введено с клавиатуры),
- name2 (значение введено с клавиатуры).
Создаются переменные файлового типа:
- f1 (для файла с именем name1),
- f2 (для файла с именем name2).
Создается переменная v целочисленного типа.
Происходит связывание файлов с переменными с помощью функции Assign:
- f1 связывается с файлом name1,
- f2 связывается с файлом name2.
Файл f1 открывается для чтения (Reset), файл f2 - для записи (Rewrite).
Пока в файле f1 не достигнут его конец (EOF), извлекается значение целого числа (Read) из файла f1 и записывается (Write) в файл f2.
После завершения копирования файлы f1 и f2 закрываются (Close).
Создается переменная h для имени третьего файла (значение введено с клавиатуры).
Вводятся имена файлов f1, f2 и h с клавиатуры.
Происходит копирование содержимого файлов:
- из файла f1 в файл h,
- из файла f2 в файл f1,
- из файла h в файл f2.
Выводится сообщение Готово! после завершения копирования.