С клавиатуры вводится предложение,в котором каждые два слова разделены ровно пробелом.Определите,сколько слов в этом предложении. Помогите паскаль

Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.var  i,n:integer;  s:string;begin  Writeln('Введите текст, разделяя слова ровно одним пробелом');  Readln(s);  n:=0;  for i:=1 to Length(s) do    if s[i]=' ' then Inc(n);  Writeln('Количество слов в тексте равно ',n+1)end.Тестовое решение:Введите текст, разделяя слова ровно одним пробеломЭто текст, количество слов в котором нам нужно посчитать.Количество слов в тексте равно 9