Текстовые файлы.Организовать из программы вывод на экран содержимого исх.файлов - Turbo Pascal

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

12)В редакторе создайте два текстовых файла, внесите в каждый файл по 10 строк произвольного текста. Из двух исходных файлов при помощи программы получите третий файл, в который внесите поочередно строки из первого и второго файла, указав после каждой строки ей длину. Организуйте из программы вывод на экран содержимого исходных файлов и содержимого результирующего файла.

Решение задачи: «Текстовые файлы.Организовать из программы вывод на экран содержимого исх.файлов»

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

uses crt;
var f,g,h:text;
    nf,ng,nh,s:string;
begin
clrscr;
write('Имя 1 файла для чтения: ');
readln(nf);{вводим без расширения, например file1}
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя 2 файла для чтения: ');
readln(ng);{вводим без расширения, например file1}
ng:=ng+'.txt';
assign(g,ng);
{$I-} reset(g);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',ng,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя для нового файла: ');
readln(nh);{также}
nh:=nh+'.txt';
assign(h,nh);
rewrite(h);
while not eof(g) do
 begin
  readln(f,s);
  write(h,s);writeln(h,' ',length(s));
  readln(g,s);
  write(h,s);writeln(h,' ',length(s));
 end;
close(f);
close(g);
reset(f);
writeln('Содержание 1 файла:');
while not eof(f) do
 begin
  readln(f,s);
  writeln(s);
 end;
close(f);
writeln('Содержание 2 файла:');
reset(g);
while not eof(g) do
 begin
  readln(g,s);
  writeln(s);
 end;
close(g);
write('Нажмите Enter для продолжения');
readln;
reset(h);
writeln('Содержание нового файла:');
while not eof(h) do
 begin
  readln(h,s);
  writeln(s);
 end;
close(h);
readln
end.

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

Программа начинается с инициализации переменных и использования функции clrscr для очистки экрана.
Затем программа запрашивает у пользователя имя первого файла для чтения и сохраняет его в переменной nf. Аналогично запрашивается имя второго файла для чтения и сохраняется в переменной ng. Имя нового файла для записи сохраняется в переменной nh.
Файлы f, g и h инициализируются как текстовые файлы с помощью функции assign. Переменные nf, ng и nh также инициализируются как строки (string).
Если файл f не найден, программа выводит сообщение об ошибке и завершает работу. Аналогично проверяется файл g и файл h.
Затем программа открывает файл g для чтения и файл h для записи. В то время как файл g читается, содержимое записывается в файл h. Когда достигается конец файла g, файл h перезаписывается содержимым файла g.
После завершения чтения файла g программа выводит содержимое файла h.
Затем программа перезаписывает содержимое файла h с помощью функции rewrite.
После этого программа считывает содержимое файла g до тех пор, пока не достигнет конца файла.
Когда достигается конец файла g, программа выводит содержимое файла h.
Наконец, программа выводит сообщение и ждет ввода пользователя перед завершением работы.