Все работает, выводится верный ответ, НО через некоторое время после вывода (секунд 5) появляется ошибка в разделе вывода: выход за пределы 1..255 в строке <какой-то>. Я так понимаю после перебора строки и вывода слов выполнение тела внутреннего цикла не прекращается, до тех пор пока значение не выйдет за 255. Что-то вроде зацикливания, наверное.
Вопрос: Как избавиться от вывода этой ошибки?
var
i,n:integer;
st:string;
begin
readln(st);
i:=0;
n:=0;
for n:=0 to length(st) do
begin
repeat
inc(i);
write(st[i]);
until st[i]=' ';
writeln;
end;
end.