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进制数，表示输入的两个数的和。
【样例输入】
4
123
321
【样例输出】
1110
【分析】
普通高精度加法加一些模拟，不难，但太坑。尤其是输出语句害的我一直是60分。 注意三点：
一：进位时注意啦，是B进制的加法，不是10进制啦！
二：输入时注意字母，要特殊处理！
三：输出时还要注意字母，还要特殊处理！
四：字母Ａ的ASCLL码是65，但是考虑进位10，所以在程序里要写55！

var  a,b:array[1..10001]of integer;  i,g,l1,l2,len:integer;  s1,s2:ansistring;  s:set of 'A'..'Z';begin  s:=['A'..'Z'];  readln(g);  readln(s1);  l1:=length(s1);  for i:=1 to l1 do    if s1[i] in s then a[l1-i+1]:=ord(s1[i])-55 else a[l1-i+1]:=ord(s1[i])-48;  readln(s2);  l2:=length(s2);  for i:=1 to l2 do    if s2[i] in s 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    a[i]:=a[i]+b[i];    if a[i]>=g then    begin      a[i+1]:=a[i+1]+1;      a[i]:=a[i]-g;    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.