高精度取模(模板)

function mod_(y:string;x:longint):longint;//y是被除数,x是除数var l,fal,i,tp:longint;    var a:array[1..10000]of byte;begin     fal:=length(y);     for i:=1 to fal do     begin          val(y[i],a[i]);     end;     l:=0;tp:=0;     repeat           inc(l);           tp:=(a[l]+tp)mod x;           if(l<>fal)then tp:=tp*10;     until l=fal;     exit(tp);end;