Заполнение массива случайными числами

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
     const n=3;  m=3;   r=10;
type
arr=array[1..n, 1..m] of integer;
 
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    StringGrid3: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
      mas2,   mas1,  b: arr;
 
  i,j,  i1,  j1, max: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
 
For i:=1 to n Do
  For j:=1 to m Do
          Begin
          mas1[i,j]:=Random(r);    mas2[i,j]:=Random(r);
 
          StringGrid1.Cells[j,i]:=IntToStr(mas1[i,j]);
 
          StringGrid3.Cells[j,i]:=IntToStr(mas2[i,j]);
 
          End;
 
 
   For i:=1 to n Do
  For j:=1 to m Do
          Begin
 
          if mas1[i,j]> mas2[i,j] then begin
 
           max:=mas1[i,j];
           b[i,j]:=max; end
                    else begin
                    max:=mas2[i,j];
           b[i,j]:=max;         end;
 
            For i1:=1 to n Do
             For j1:=1 to m Do
          StringGrid2.Cells[j,i]:=IntToStr(b[i,j]);
end;
end;
end.

procedure TForm1.Button9Click(Sender: TObject);
var i,k:integer;
begin
Randomize;
with StringGrid5 do
 begin
 i:=0;{первая строка}
 for k:=0 to (StringGrid5.RowCount-1) do
 Cells[i,k]:=IntToStr(k);{}
 k:=0;{Первый столбец}
 for i:=0 to (StringGrid5.ColCount-1) do
 Cells[i,k]:=IntToStr(i);
 end;
 with StringGrid5 do
   for i:=0 to ColCount-1 do {Обходим оставшиеся столбыцы}
   for k:=0 to RowCount-1 do {Обходим  оставшиеся строки}
begin
  StringGrid5.Cells[i,k]:=IntToStr(Random(31)-20);{Заполняем массив случайными числами в промежутке до 21}
   StringGrid6.Cells[i,k]:=IntToStr(Random(31)-20);
 
 end;
end;
procedure TForm1.Button11Click(Sender: TObject);
const
n=5;  m=5;   r=20;
type
arr=array[0..n, 0..m] of integer;
var mas2,   mas1,  b: arr;
i,j,  i1,  j1, max: integer;
begin
   For i:=0 to n Do
  For j:=0 to m Do
          Begin
 
          if mas1[i,j]> mas2[i,j] then begin
 
           max:=mas1[i,j];
           b[i,j]:=max; end
                    else begin
                    max:=mas2[i,j];
           b[i,j]:=max;         end;
 
            For i1:=0 to n Do
             For j1:=0 to m Do
          StringGrid9.Cells[j,i]:=IntToStr(b[i,j]);
end;
end;
end.