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

Не парься, это легко)

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