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

begin
  var s:=ReadlnString('Введите текст, завершив его точкой:'+NewLine);
  s:=s[:Pos('.',s)];
  var k:=s.ToWords.Select(w->w.MatchValues('b[A-ZА-ЯЁ][a-zа-яё]*b'))
    .Where(w->w.Count>0).Count;
  Writeln('Найдено слов: ',k)
end.


Введите текст, завершив его точкой:
Карл у Клары украл кораллы Клара у Карла украла кларнет.
Найдено слов: 4

Буквы латинского алфавита также обрабатываются.