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