free pascal 兼程问题 （测到40以后就出错了） 高手指点！！！

题目： 用高精度计算出S=1！+2！+3！+…+n！（n≤50）

             其中“！”表示阶乘，例如：5！=5*4*3*2*1。

             输入正整数N，输出计算结果S。

我的程序：

program jc；

var
 i,j,n,w,m:longint;
 a:array[1..2,1..100]of longint;
 c:array[1..100]of longint;
 procedure add;
  begin
   for i:=1 to w do
    begin
     inc(c[i],a[2,i]);
     if c[i]>=10 then
      begin
       dec(c[i],10);
       inc(c[i+1]);
      end;
    end;
  end;
 procedure jc(q,p:longint);
  begin
   w:=p;
   for i:=1 to p do
    begin
     m:=i;
     a[2,m]:=a[1,m]*q+a[2,m];
     if a[2,m]>=10 then
      while a[2,m]>=10 do
       begin
        if m=w then inc(w);
        repeat
         dec(a[2,m],10);
         inc(a[2,m+1]);
        until a[2,m]<10;
        inc(m);
       end;
     while a[2,w+1]<>0 do inc(w);
    end;
   add;
   a[1]:=a[2];
   for i:=1 to 50 do a[2,i]:=0;
   if q<n then jc(q+1,w);
  end;
begin
 readln(n);
 a[1,1]:=1;
 c[1]:=1;
 if n>=2 then jc(2,1);
 for i:=w downto 1 do write(c[i]);
 readln;
end.

我测过50以内没问题 若是error 201 因为你数组开太小了