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

Считаем, что слова разделяются ровно одним пробелом. Тогда слов будет на единицу больше, чем пробелов. 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