---

Assign(F_in,'c:\text.txt');

Assign(F_out,'c:\text1.txt"); Rewrite(F_out);

Writeln(F_out,S);

While not eof(F_in) do

begin

Readln(F_in,S);

Writeln(F_out,S);

end;

Close(F_in);

Close(F_out);

Erase(F_in);

Rename(F_out,'c:\text.txt');

end.

4.

Создать текстовый файл, в который записать 3 предложения. Прочитать этот файл, вывести его содержимое на экран. Определить длину каждого предложения.

Program File text;

fl: text:

st: string;

n: byte;

begin

assign (fl, 'file1.txt'); {связать с файлом file1.txt файловую переменную f1 }

rewrite (f1); { создать новый файл с именем filel.txt }

writeln (fl, "Очень полезно изучать); { записать предложения в файл)

writeln (f1, ' всем студентам ');

writeln (fl, 'язык Pascal ');

close (f1); { закрыть файл для записи

reset (f1); { открыть файл для чтения

while not eof (f1) do { пока не конец файла f1}

begin

readln (fl, st); {читаем строку из файла f1 writeln(st); { выводим на экран n:= length (st); {определяем длину строки writeln (длина =',n);

end;

close (f1); { закрыть файл для чтения)

end.