Скопировать все строки текстового файла F в текстовый файл G, добавляя после каждой строки число, равное ее длине (количество символов, включая пробелы).
вот что вышло,но программа видит только 1 строку,и работает до той степени пока ее не остоновишь.
var
f, g: text;
str: string;
len: byte;
begin
Assign(f, 'in.txt');
Assign(g, 'out.txt');
Reset(f);
Rewrite(g);
while not eof(f) do
begin
raed(f, str);
len:=length(str);
Write(g, str);
WriteLn(g, len);
end;
Close(f);
Close(g);
end.