пожалуйста, очень надо 

с клавиатуры вводят строку. Составьте программу которая подсчитывает количество прописных букв

var

i,j,k:integer;

s,p:string;

begin

p:='ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

readln(s);

k:=0;

for i:=1 to length(s) do

for j:=1 to length(p) do

if s[i]=p[j] then k:=k+1;

writeln(k);

end.