Задача. Створити текстовий файл, в якому записати 3 речення. Прочитати цей файл і вивести, його вміст на екран. Визначити довжину кожного речення.

Розвязання

program file_text;
var f1:text; st:string; n:integer;
begin
assign (f1, 'C://file.txt');
rewrite(f1);
writeln(f1, 'Дуже корисно ');
writeln(f1, 'всім учням');
writeln(f1, 'вчити Паскаль');
close(f1);
reset(f1);
while not eof(f1) do
begin
readln(f1, st);
writeln(st);
n:=length(st);
writeln('äîâæèíà=', n);
end;
close(f1);
end.