Умножение больших чисел

 function mult(s1:string;b:integer):string;
 var longnum:array[0..1000] of integer;
     i,c:integer;
     res:string;
  begin
  longnum[0]:=length(s1);
    for i:=0 to longnum[0] do
     longnum[longnum[0]-i+1]:=Ord(s1[i])-48;
     for i:=1 to longnum[0] do
         begin
              longnum[i]:=c+longnum[i]*b;
              c:=longnum[i] div 10;
              longnum[i]:=longnum[i] mod 10;
         end;
     While c>0 do
           begin
           longnum[0]:=longnum[0]+1;
           longnum[longnum[0]]:=c mod 10;
           c:=c div 10;
           end;
       if longnum[longnum[0]]=0 then  mult := '0'
           else
           for i:=longnum[0] downto 1 do begin
             res:=res+IntToStr(longnum[i]);
             mult:=res;
             end;
  end;
 
begin
      writeln(mult('123421343214213443532534514234213421341254325',11111111));
end.
 
// output: 1371348244222222348782223098987425322212445684305075