P1040 高精度乘法

我用了书本那种办法

为什么错啊?

各位哥哥姐姐能告诉我吗?

const max=100;

type arr=array[1..max]of integer;

var

i,j,jinwei,weishu:integer;

n,m:string;

lenm,lenn:integer;

a,b,r:arr;

procedure changestr(x:string;var aa:arr);

var i:integer;

begin

for i:=1 to length(x) do

begin

aa[i]:=ord(x[length(x)-i+1])-48;

if (aa[i]>9)or(aa[i]