Вычисление массива по двум заданным массивам

const n=3;m=3;
type myarr=array[1..n,1..m] of int64;
var
  a,b,c:myarr;
  i,j:integer;
procedure printArr(a:myarr;s:string);  
var
  i,j,k:integer;
begin
  writeln(s);
  k:=0;
  for i:=1 to n do 
    for j:=1 to m do if length(inttostr(a[i,j]))>k then k:=length(inttostr(a[i,j]));
    k:=k+1;
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:k);
    writeln;
  end;
end;  
begin
  randomize;
  for i:=1 to n do 
    for j:=1 to m do begin
      a[i,j]:=random(1000);
      b[i,j]:=random(1000);
      c[i,j]:=(a[i,j]+b[i,j])*100;
    end;
  printArr(a,'A:');
  printArr(b,'B:');
  printArr(c,'C:');
end.

uses GraphAbc;
const n=3;m=3;
type myarr=array[1..n,1..m] of int64;
var
  a,b,c:myarr;
  i,j,mx,my:integer;
  ok:boolean;
  mcolor:System.Drawing.Color;
procedure printArr(a:myarr;s:string);  
var
  i,j,k:integer;
begin
  writeln(s);
  k:=0;
  for i:=1 to n do 
    for j:=1 to m do if length(inttostr(a[i,j]))>k then k:=length(inttostr(a[i,j]));
    k:=k+1;
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:k);
    writeln;
  end;
end;  
function rnd(x,y:integer):integer;
begin
  x:=random(x);
  y:=random(y);
  SetBrushColor(clmagenta);
  FillCircle(random(x),random(y),20);
  mcolor:=getpixel(x,y);
  repeat  
  until ok;
  ClearWindow;
  rnd:=mx;
  ok:=false;
end;
procedure Mousedown(x,y,b:integer);
begin
  //writeln(getPixel(x,y));
  if GetPixel(x,y)<>mcolor then begin
  ok:=true;
  if odd(system.datetime.Now.Millisecond) then mx:=x else mx:=y; 
  end else ok:=false;
end;  
begin
  Window.Caption:='Инициализация ДСЧ. Попадите а круг мышью';
  randomize;
  OnMouseDown:=mousedown;
  for i:=1 to n do 
    for j:=1 to m do begin
      a[i,j]:=rnd(WindowWidth,WindowHeight);
      b[i,j]:=rnd(WindowWidth,WindowHeight);
      c[i,j]:=(a[i,j]+b[i,j])*100;
    end;
    window.Caption:='результат';
  printArr(a,'A:');
  printArr(b,'B:');
  printArr(c,'C:');
  
end.