Задача на строки

[LaSeule]

Помогите, пожалуйста!

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

[Sazary]

uses crt;
const n = 3;
var
s,tmp : string;
i,len : integer;
begin
clrscr;
writeln('Enter string:');
readln(s);
writeln('--------');
i := 1;
len := length(s);
while (i<=len) and (s[i]<>'.') do
 begin
 while (s[i]=' ') and (s[i]<>'.') do inc(i);
 tmp := '';
 while (s[i] <> ' ') and (s[i]<>'.') do
   begin
   tmp := tmp + s[i];
   inc(i);
   end;
 if length(tmp) = n then writeln(tmp);
 inc(i);
 end;

readln;
end.

[LaSeule]

Спасибо большое!