Составить программку подсчитывающую количество слов в предложении

Основным условием для текста, который будет анализироваться на количество слов в нем, является наличие неких разделительных знаков.
Например, если в тексте будет пропущен пробел, то программа проигнорирует два слова и посчитает их как одно целое.
Также нужно, чтобы перед запятой не было пробелов, по другому программа посчитает запятую или иной символ препинания как одно слово.
Будем использовать пробел как символ разделения слов.
var slova:integer;
begin
readln(text);
for i:integer := 1 to length(text) do
if (text[i] = ) then
slova := slova + 1;
writenl(Слов всего , slova := slova + 1);