Определите количество слов в тексте .турбо паскаль

Не парься, это легко) program example; var str: string;i, count: integer;begin write('Ваша строка: '); readln(str); i := length(str); if i > 0 then  begin  count := 1;  while i > 0 do   begin   if str[i] = ' ' then   count := count + 1;   i := i - 1;  end; end else  count := 0; writeln('Количество слов: ', count); readln;end.