Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.

Считаем, что слова разделяются ровно одним пробелом. Тогда слов будет на единицу больше, чем пробелов.var  i, n, p, k: integer;  s: string;begin  Write('Введите предложение и закончите его точкой: ');  Readln(s);  s := Trim(s);  p := Pos('.', s) - 1;  k := 0;  for i := 1 to p do    if s[i] = ' ' then k := k + 1;  Writeln('Введено слов- ', k + 1)end.Тестовое решение:Введите предложение и закончите его точкой: Карл у Клары украл кораллы.Введено слов- 5