Дан текст. Найти сумму кодов:

uses crt;
procedure DEC_HEX(x:integer;var res:string);
//цифры в СС 16
const digits:array [0..15] of char = ('0','1','2','3','4','5','6','7',
                                      '8','9','A','B','C','D','E','F');
begin
   if x>15 then DEC_HEX((x div 16),res)//если число больше 15, то берум остаток
                                       //от деления на 16
   else res:='';//иначе ничего
   res:=res+digits[x mod 16];//к числу добавляем цифру остатка от деления
end;
var s:string;
    i:byte;
    sc,sl,sr:integer;
    c16,l16,r16:string;
begin
writeln('Введите строку из цифр, латинских и русских букв');
read(s);
sc:=0;
sl:=0;
sr:=0;
for i:=1 to length(s) do
 begin
  if s[i] in ['0'..'9'] then sc:=sc+ord(s[i]);
  if s[i] in ['A'..'Z','a'..'z'] then sl:=sl+ord(s[i]);
  if s[i] in ['А'..'я','Ё','ё'] then sr:=sr+ord(s[i]);
 end;
DEC_HEX(sc,c16);
DEC_HEX(sl,l16);
DEC_HEX(sr,r16);
writeln('Сумма кодов цифр в СС10=',sc,' в СС16=',c16);
writeln('Сумма кодов латинских букв в СС10=',sl,' в СС16=',l16);
writeln('Сумма кодов русских букв в СС10=',sr,' в СС16=',r16)
end.