codevs天梯 高精度加法

题目：

就是求两数相加和（五百位）

分析：

不用说什么吧，就是水过去啦，一开始字符串没开ansistring还错了一个点

代码：

const
  maxn=1000;


var
  a,b,c:array [0..maxn] of longint;
  s1,s2:ansistring;


procedure init;
var
  i:longint;
begin
  readln(s1);
  s2:=copy(s1,1,pos(' ',s1)-1);
  for i:=length(s2) downto 1 do
    a[length(s2)-i+1]:=ord(s2[i])-48;
  delete(s1,1,pos(' ',s1));
  for i:=length(s1) downto 1 do
    b[length(s1)-i+1]:=ord(s1[i])-48;
end;


procedure main;
var
  i,j,k,len:longint;
begin
  if length(s1)>length(s2) then
    len:=length(s1)
  else
    len:=length(s2);
  for i:=1 to len do
    begin
      c[i]:=a[i]+b[i]+c[i];
      c[i+1]:=c[i] div 10;
      c[i]:=c[i] mod 10;
    end;
  if c[len+1]>0 then
    inc(len);
  for i:=len downto 1 do
    write(c[i]);
end;


begin
  init;
  main;
end.