Добавление содержимого нескольких нетипизированных файлов к первоначально пустому файлу - Turbo Pascal

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

Реализуйте последовательное добавление содержимого нескольких нетипизированных файлов к первоначально пустому файлу с заданным именем.

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

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

Var f,g:text;
    s,name,st:string;
    i,n:integer;
Begin
    write('Имя файла: ');readln(name);
    Assign(f,name);Rewrite(f);
    n:=2;
    For i:=1 to n do
    Begin
      s:='in.txt';
      Str(i,st);
      Insert(st,s,3);
      Assign(g,s);Reset(g);
      While not Eof(g) do
      Begin
        readln(g,s);
        writeln(f,s);
      End;
      Close(g);
    End;
    Close(f);
    writeln('Результат в файле ',name);
    readln;
End.

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

Объявляются переменные: f, g - текстовые файлы; s, name, st - строковые переменные; i, n - целочисленные переменные.
Пользователь вводит имя файла, которое сохраняется в переменной name.
Переменная f присваивается значение name, переменная g устанавливается в значение in.txt.
Переменная n инициализируется значением 2.
Запускается цикл for, который выполняется n раз.
Внутри цикла переменная s присваивается значение in.txt.
Строка st инициализируется значением i.
Вставка строки st в файл s, начиная с позиции 3.
Переменная g присваивается значение s.
Переменная g сбрасывается.
Запускается цикл while, который выполняется до конца файла g.
Внутри цикла файл g считывается построчно, каждая строка записывается в файл f.
После окончания чтения файла g, файл f закрывается.
Переменная f закрывается.
Выводится сообщение Результат в файле, name.
Программа завершается, ожидая ввода пользователя.