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

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.