Посимвольное чтение бесконечной (очень длинной) строки
Общую идею чтения бесконечно длинной строки можно проиллюстрировать следующим примером:
var a: char;
begin
while not eoln() do // пока не встретим конец строки в стандартном потоке ввода
begin
read(a); // читаем очередной символ
write(a, ' '); // выводим его на экран
end;
end.