Даны два файла: f1:»знак» и f2:»генератор». Конкатенировать файлы f1 и f2 через букву «о», записав результат в файл f1. Вывести на экран файл f1 — Pascal(Паскаль)

uses crt;
var f1,f2:text;
    nf1,nf2,s,s1:string;
begin
clrscr;
write('Имя первого файла: ');
readln(nf1);
nf1:=nf1+'.txt';
assign(f1,nf1);
{$I-} reset(f1);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',nf1);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя второго файла: ');
readln(nf2);
nf2:=nf2+'.txt';
assign(f2,nf2);
{$I-} reset(f2);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',nf2);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
readln(f1,s);
close(f1);
s:=s+'o';//о пиши в английской раскладке, иначе в файле кривулина будет
readln(f2,s1);
s:=s+s1;
rewrite(f1);//переписываем первый файл
writeln(f1,s);
close(f1);
close(f2);
erase(f2);//уничтожаем второй
write('Файлы конктенированы, результат записан в файл ',nf1);
readln
end.