Дано предложение. В нем слова разделены пробелом.Верно ли ,что число слов в предложении больше трёх.Напишите пожалуйста программу в паскале . Заранее спасибо

var

s:string;

i,count:integer;

begin

count:=0;

readln (s);

for i:=1 to length(s) do

if (s[i]=' ') then count:=count+1;

if (count+1 >=3) then

writeln ('Верно')

else

writeln ('Неверно');

end.