pascal一个数进行一次分割使他们的乘积最大

var str1,str2,str:string;
i,lmax,l:integer;
max:array[1..500] of integer;
procedure multiply(str1,str2:string);
var a1,a2,b,s:array[1..500] of integer;
l1,l2,l,k,i,j:integer;
begin
writeln(str1);fillchar(a1,sizeof(a1),0);l1:=length(str1);
writeln(str2);fillchar(a2,sizeof(a2),0);l2:=length(str2);
k:=l1;
for i:=1 to l1 do
begin
a1[k]:=ord(str1[i])-ord('0');
dec(k);
end;
k:=l2;
for i:=1 to l2 do
begin
a2[k]:=ord(str2[i])-ord('0');
dec(k);
end;
fillchar(s,sizeof(s),0);
for i:=1 to l2 do
begin
fillchar(b,sizeof(b),0);
for j:=1 to l1 do
begin
b[j+i-1]:=a2[i]*a1[j];
b[j+i]:=b[j+i-1] div 10;
b[j+i-1]:=b[j+i-1] mod 10;
end;
if b[j+i]>0 then l:=j+i else l:=j+i-1;
for j:=1