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

Главным условием для текста, который будет анализироваться на количество слов в нем, является наличие некоторых разделительных символов.

Например, если в тексте будет пропущен пробел, то программа проигнорирует два слова и посчитает их как одно целое.

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

Будем использовать пробел как символ разделения слов.

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);