Решаем задачи Абрамян на Паскале. Text6

Text6. Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла.

Решение:

program Text6;

var

F_in,F_out: Text;

Name,S: String;

begin

Write('File1 name: ');

Readln(Name);

Assign(F_out,Name);

Append(F_out);

Write('File2 name: ');

Readln(Name);

Assign(F_in,Name);

Reset(F_in);

While not eof(F_in) do

begin

Readln(F_in,S);

Writeln(F_out,S);

end;

Close(F_in);

Close(F_out);

end.

Другие задачи из раздела Text можно посмотреть здесь.