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

var text: 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.