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