Подсчитать количество слов в строке?

Program aa;
var i,count:integer;
      s : string;
begin
read(s);
count:= 0;
for i:=1 to length(s) do if s[i] = ' ' then count := count + 1;
write(count);
end.

Какой у вас компилятор?