Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы. предложение, состоящее из слов, разделенных одним или несколькими пробелами (без знаков препинания), предложение заканчивается точкой.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст:');
  var p:=Pos('.',s); // позиция точки
  if p>0 then s:=s[:p]; // отбросим до конца все, начиная с точки
  Writeln('Найдено слов: ',s.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]+\b').Count)
end.

Примеры
Введите текст: TesT И тольКо Тест Сегодня15 января язык Pascal версия 3-3.
Найдено слов: 2

Введите текст: И сидит, сидит зловещий Ворон черный Ворон вещий.
Найдено слов: 2

Введите текст: Почему же мы с тобой   Пишем с буквы прописной: Таня, Ваня, Мила, Нина, Коля, Петя и Ирина.
Найдено слов: 9