Посчитать количество слов из трёх букв в данной строке.

[ALEXandr20333]

Посчитать количество слов из трёх букв в данной строке.
а вот задача которая считает количество слов как ее переделать в нужную мне

var
 str: string;
 i, count: integer;
begin
write('Your string: ');
 readln(str);
i := length(str);
if i > 0 then begin
 count := 1;
 while i > 0 do begin
 if str[i] = ' ' then
count := count + 1;
 i := i - 1;
end;
 end
 else
count := 0;
writeln('Number of words: ', count);
readln;
end.

[Stilet]

Думаю никак.
Предложу свое видение с потолка:

var
 str: string;
 l,i, count: integer;
begin
write('Your string: ');
readln(str);
l:=0;
for i:=1 to Length(str) do begin
 if str[i]=' ' then begin
  if l=3 then inc(count); l:=0;
 end else inc(l);
end;
writeln('Number of words: ', count);
readln;
end.