B进制星球

题目背景
进制题目，而且还是个计算器~~

题目描述
话说有一天，小Z乘坐宇宙飞船，飞到一个美丽的星球。因为历史的原因，科技在这个美丽的星球上并不很发达，星球上人们普遍采用B（2<=B<=36）进制计数。星球上的人们用美味的食物招待了小Z，作为回报，小Z希望送一个能够完成B进制加法的计算器给他们。 现在小Z希望你可以帮助他，编写实现B进制加法的程序。

输入输出格式
输入格式：
共3行第1行：一个十进制的整数,表示进制B。第2-3行：每行一个B进制数正整数。数字的每一位属于{0，1，2，3，4，5，6，7，8，9，A，B……}，每个数字长度<=2000位。
输出格式：
一个B进制数，表示输入的两个数的和。

输入输出样例
输入样例#1：
4
123
321
输出样例#1：
1110

说明
这是一个进制计算器，因为会有字母，所以要用字符串输入，再用数组来转。最重要是——例如：字母Ａ的ASCLL码是65，但是考虑进位10，所以在程序里要写55。

var
  a,b:array[1..10001]of integer;
  i,n,l1,l2,len:integer;
  s1,s2:ansistring;
begin
  readln(n);
  readln(s1);
  readln(s2);
  l1:=length(s1);
  l2:=length(s2);
  for i:=1 to l1 do
    if (ord(s1[i])>64)and(ord(s1[i])<91) then a[l1-i+1]:=ord(s1[i])-55
      else a[l1-i+1]:=ord(s1[i])-48;
  for i:=1 to l2 do
    if (ord(s2[i])>64)and(ord(s2[i])<91) then b[l2-i+1]:=ord(s2[i])-55
      else b[l2-i+1]:=ord(s2[i])-48;
  i:=1;
  while (i<=l1)or(i<=l2) do
  begin
    inc(a[i],b[i]);
    if a[i]>=n then
    begin
      inc(a[i+1]);
      dec(a[i],n);
    end;
    inc(i);
  end;
  if a[i]>0 then len:=i
    else len:=i-1;
  for i:=len downto 1 do
    if a[i]>=10 then write(chr(a[i]+55))
      else write(a[i]);
end.