Умножение длинных чисел

program long;
const maxsize=100;
var
a,b,c:string;
Aarr, Barr, Carr: ARRAY [1..maxsize] OF INTEGER;
i,j,k:integer;
begin
//Ввод данных
writeln ('Введите первое число: ');
readln(a);
writeln ('Введите второе число: ');
readln(b);
i:=0;
//Занесение в массивы
for i:=1 to length(a) do
begin
Aarr[i]:=strtoint(a[i]);
inc(i);
end;
i:=0;
for i:=1 to length(b) do
begin
Barr[i]:=strtoint(b[i]);
inc(i);
end;
//Собственно, алгоритм:
  for i:=1 to length(a) do
  begin
    for j:=1 to length(b) do
    begin
      Carr[i]:= Aarr[i]*Barr[j]; //Умножение
      k:= i+j-1;
      while(Carr[i]>9) do  //если получившееся число больше 9,
      begin
        Carr[i]:=Carr[i]+Carr[k]; //...переходим на следующий десяток...
        Carr[k]:=Carr[i] mod 10;  //...и отделяем число, которое надо перенести
        Carr[i]:=Carr[i] div 10;
        if k>Carr[i] then  Carr[i]:=k;
        k:=k+1;
      end;
    end;
  end;
  i:=0;
for i:=1 to k do
begin
write(Carr[i]);
inc(i);
end;
end.