Пмогите с задачей в Паскале, пожалуйста.

[Saaashka]

Строка Т состоит из слов, разделенных запятыми. Определить, сколько слов начинается с большой буквы.

[Карась]

А вы в курсе что на этом форуме запрщена регистрация двух аккаунтов?
А именно ник Panda тоже ваш.........

[Panda]

Сообщение от Карась

А вы в курсе что на этом форуме запрщена регистрация двух аккаунтов?
А именно ник Panda тоже ваш.........

Мы просто с одной группы, я поначалу зарегистрироваться не мог! Вот так. Друг мои задания писал

[puporev]

uses crt;
const bb=['A'..'Z','А'..'Я','Ё'];
var s:string;
    i,k:integer;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
s:=','+s;k:=0;
for i:=2 to length(s) do
if (s[i] in bb)and(s[i-1]=',')
then k:=k+1;
writeln('Takih slov ',k);
readln
end.