Посчитать количество слов в тексте

[Kontinent]

С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитайте количество слов в тексте.

Подскажите, вот написал нужную прогу (правильно или нет - не уверен, но делает то, что нужно).

var
str: string;
a, count: integer;
begin
writeln('Введите текст: ');
readln(str);
a := length(str);
if a > 0 then begin
count := 1;
while a > 0 do begin
if str[a] = ' ' then
count := count + 1;
a := a - 1;
end;
end;
writeln('Количество слов: ', count);
readln;
end.


Только один нюанс. Что нужно дописать, чтобы ввод текста заканчивался именно после нажатия точки на клавиатуре?