Написать программу определяющую число слов в строке одно слово отделяется от другого пробелом(паскаль)(срочно нужно)

Program WordsCounter(output);
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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.