Версия для печати темы

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;