uses Исполнители;

begin
  var Файл1 := Файл.Новый;
  var Файл2 := Файл.Новый;
  Файл1.ОткрытьНаЧтение('текст.txt');
  Файл2.ОткрытьНаЗапись('текст2.txt');
  while not Файл1.КонецФайла do
  begin
    var строка := Файл1.ПрочитатьСтроку;
    Файл2.Записать(строка);
  end;
  Файл1.Закрыть;
  Файл2.Закрыть;
  
  Файл2.ВывестиСодержимое;
end.  
  