За + спасибо. Пожалуй, ты тоже заслуживаешь поощрения за долготерпение при объяснении )).
+1
Добавлено через 18 мин.
Вот тебе вариант с буквами и цифрами (а не с разделителями). Только в нем только латиница. Кириллицу, если надо, добавь сам.
const
letters = ['A'..'Z','a'..'z','0'..'9'];
var
s,t: string;
i: integer;
begin
ReadLn(s);
t:='';
for i:=1 to Length(s)+1 do
if (i>Length(s))or not (s[i] in Letters) then begin
if Length(t)=3 then WriteLn(t);
t:=''
end
else t:=t+s[i]
end.