Строки в Pascal

[Сristina]

Задано предложение. Посчитать количество слов, длина которых не превосходит 3, и вывести их на экран в столбец.

[ROMA2PVT]

ну можно вот так.

var
  st,s:string;
  k,i,kol:integer;
  key:char;
begin
writeln('Введите строку: ');
readln(s);
kol:=0;
s:=s+' ';
key:=' ';
i:=pos(key,s);
writeln('Слова которые менее 3 или равны 3: ');
while (i>0) do
  begin
  st:=copy(s,1,i-1);
  delete(s,1,i);
  if (length(st)<=3) then
  begin
      inc(kol);
        writeln(st,' ');
      end;
  i:=pos(key,s);
  end;
  writeln('Количество слов:=',kol);
writeln;
end.

[Сristina]

Спасибо огромное!!!=))))