Считаем, что слова разделяются ровно одним пробелом. Тогда слов будет на единицу больше, чем пробелов.

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