Найти сумму цифр числа в системе счисления с основанием p

uses crt;
const cf:string[36]='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';//строка всех возможных цифр
      ds=['0'..'9','A'..'Z'];//допустимые для ввода символы
var p,i,k:byte;
    s:string;
    sum:integer;
begin
clrscr;
repeat;
write('Введите систему счисления от 2 до 36 p=');
readln(p);
until p in [2..36];
repeat
writeln('Введите число в в системе счисления ',p);
readln(s);
k:=0;
for i:=1 to length(s) do
if not(s[i] in ds)or(pos(s[i],cf)>p+1)then//если недопустимый символ вообще, либо для данной системы счисления, например 3 для сс2
 begin
  k:=1;
  writeln('Число введено неверно, повторите ввод.');
  break;
 end;
until k=0;
sum:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then sum:=sum+ord(s[i])-48//если цифра, отнимаем от кода 48
else sum:=sum+ord(s[i])-55;//если буква, отнимаем от кода 55
write('Сумма цифр=',sum);
readln
end.