Формирование Файла f3, имея Файлы f2 и f1, из которых записываются строки - Pascal ABC

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

Требуется написать программу, в процедуре которой будет создаваться новый файл f3, в котором будут записываться поочередно строки из файла f1 и f2, пока указатель не дойдет до конца каждого файла (EoF). То есть, считываются данные из уже имеющихся двух файлов, создается файл f3, в который записываются 1 строка f1 файла, после 1 строка f2 файла, после 2 строка f1 файла, после 2 строка f2 файла и т.д., пока not EoF каждого файла (если указатель в каком то файле из двух уже стоит в конце этого файла и считывать нечего - записываются оставшиеся строки другого файла до EoF). Структуры обоих файлов: x : integer; y : real;

Решение задачи: «Формирование Файла f3, имея Файлы f2 и f1, из которых записываются строки»

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

type zap=record
             x:integer;
             y:real;
             end;
var f1,f2,f3:file of zap;

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

Создаются три переменные: f1, f2 и f3 типа file of zap.
Переменная f1 открывается для записи, а переменные f2 и f3 открываются для чтения.
Производится запись в файл f1.
Производится чтение из файла f2.
Производится чтение из файла f3.