// 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