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

program aa;var i,count:integer;      s : string;beginread(s);count:= 0;for i:=1 to length(s) do if s[i] = ' ' then count := count + 1;write(count);end.Какой у вас компилятор?