Паскаль. Дан текст. Написать программу, которая подсчитывает количество слов, в тексте учитывая, что между словами может быть по несколько пробелов.

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

program WordCount;

var
text: string;
count, i: integer;

begin
writeln('Enter a text: ');
readln(text);

count := 0;
i := 1;

while i <= length(text) do
begin
if text[i] <> ' ' then
begin
count := count + 1;
while (i <= length(text)) and (text[i] <> ' ') do
i := i + 1;
end
else
i := i + 1;
end;

writeln('Number of words in the text: ', count);
end.