Сложение чисел в одной системе счисления

uses crt;
//для проверки ввода
const digit:string[36]='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
procedure Vvod(var c:string;osn,n:byte);//ввод чисел=строк
var i,k:byte;
    m:set of char;
begin
m:=[];
for i:=1 to osn do
m:=m+[digit[i]]; //множество допустимых символов
repeat
k:=0;
writeln('Введите ',n,' число');
readln(c);
for i:=1 to length(c) do //проверяем
if not (c[i] in m) then k:=1;
if k=1 then writeln('Число введено неверно, повторите ввод.');
until k=0;
end;
 
var s1,s2:string;
    a,b,c:array[byte] of 0..36;
    ss,n,m,i,j,p:byte;
begin
repeat
write('Введите СС от 2 до 36 ss=');
readln(ss);
until ss in [2..36];
Vvod(s1,ss,1);
Vvod(s2,ss,2);
if length(s1)<length(s2) then
while length(s1)<length(s2) do
s1:='0'+s1
else if length(s1)>length(s2) then
while length(s2)<length(s1) do
s2:='0'+s2;
clrscr;
writeln('  ',s1);
writeln(' +');
writeln('  ',s2);
for i:=1 to length(s1)+2 do
write('-');
writeln;
n:=length(s1);
m:=n;
for i:=1 to n do
 begin
  if s1[i] in ['0'..'9'] then  a[i]:=strtoint(s1[i])
  else a[i]:=ord(s1[i])-55;
  if s2[i] in ['0'..'9'] then  b[i]:=strtoint(s2[i])
  else b[i]:=ord(s2[i])-55;
 end;
p:=0;
for i:=n downto 1 do
  begin
   c[i]:=a[i]+b[i]+p;
   if (c[i]>ss-1)and(i>1) then
      begin
       c[i]:=c[i] mod ss;
       p:=1;
      end
    else p:=0;
  end;
if c[1]>ss-1 then
  begin
    c[1]:=c[1] mod ss;
    n:=n+1;
    for j:=n downto 2 do
    c[j]:=c[j-1];
    c[1]:=1;
  end;
if n=m then write('  ')
else write(' ');
for i:=1 to n do
if c[i] in [0..9] then write(c[i])
else write(chr(c[i]+55));
end.