Задача про символы Опции

[San]

Код

var i: integer; words : array [0..100] of string;c:char;
begin
i:=0;

while c<>'.' do
read(c);
if c=' ' then inc(i) else
if c<>'.' then words[i]:= words[i]+c;
end;

Допустим так я разбиваю предложение на слова!!! А как мне теперь вывести те слова которые имеют в себе больше пяти символов!??? ???

[fms]

дак эт.. length(s) где s:string; вычисляет длину строки..