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;
Допустим так я разбиваю предложение на слова!!! А как мне теперь вывести те слова которые имеют в себе больше пяти символов!??? ???