Дана строка символов состоящая из букв и цифр определить сумму всех цифр в этой сроке и количество прописных заглавных

program strok;vara: string;n,i,a1,a2,k,s,l: integer;beginwriteln(\'Введите строку\');readln(a);n:=length(a); {Здесь определяем длину введенной строки}a1:=ord(\'A\'); {Определяем коды, соответствующие первой и последней заглавным буквам}a2:=ord(\'Z\');for i:=1 to n do begin if (ord(a[i])>a1) and (ord(a[i])<a2) {Выбираем коды, соответствующие тому, что это заглавная буква и считаем их количество} then k:=k+1; if (ord(a[i])>=48) and (ord(a[i])<=57) {Здесь коды цифр \"0\" и \"9\" мы узнали из таблицы кодов} then begin if ord(a[i])=48 then l:=0; {Заменяем цифру символьного типа данных на целое число} if ord(a[i])=49 then l:=1; if ord(a[i])=50 then l:=2; if ord(a[i])=51 then l:=3; if ord(a[i])=52 then l:=4; if ord(a[i])=53 then l:=5; if ord(a[i])=54 then l:=6; if ord(a[i])=55 then l:=7; if ord(a[i])=56 then l:=8; if ord(a[i])=57 then l:=9; s:=s+l; {Суммируем все получившиеся числа} end; end;writeln(\'Количество заглавных букв: \',k);writeln(\'Сумма всех цифр: \',s);readln;end.