Составить программу в pascalопределить сколько слов в тексте ( слово - это набор символов,разделенных пробелом )

Предыдущий
вопрос Следующий
вопрос

program CountWords;

var
text: string;
wordsCounter: integer;

begin
wordsCounter := 0;

writeln('Введите текст: ');
readln(text);

for i := 1 to length(text) do
begin
if text[i] = ' ' then
wordsCounter := wordsCounter + 1;
end;

wordsCounter := wordsCounter + 1;

writeln('Количество слов в тексте: ', wordsCounter);

end.