Создать третий файл, в котором чередуются строки двух заданных - Pascal

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

Всем привет Помогите пожалуйста создать одну маленькую программу : Имеются два текстовых файла одинакового размера. Создать третий файл , в котором строки двух данных файлов чередуются. Заранее благодарен.))

Решение задачи: «Создать третий файл, в котором чередуются строки двух заданных»

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

var f1, f2, f : Text; s : String;
begin
  assign(f1, 'first.txt'); assign(f2, 'second.txt'); assign(f, 'result.txt');
  reset(f1); reset(f2); rewrite(f);
  while Not EOF(f1) do
    begin
      ReadLn(f1, s); WriteLn(f, s); ReadLn(f2, s); WriteLn(f, s);
    end;
  close(f1); close(f2); close(f3);
end.

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

Объявление переменных:
- f1, f2, f, f: текстовые файлы
- s: строка
Присвоение файлов:
- f1 получает файл first.txt
- f2 получает файл second.txt
- f получает файл result.txt
Открытие файлов:
- открытие f1 в режиме чтения
- открытие f2 в режиме чтения
- открытие f в режиме записи
Чтение и запись строк из файлов:
- пока файл f1 не достигнет конца файла (EOF):
  - считывание строки из f1 в переменную s
  - запись строки s в файл f
  - считывание строки из f2 в переменную s
  - запись строки s в файл f
Закрытие файлов:
- закрытие f1
- закрытие f2
- закрытие f
Конец программы.