Разработать программу по работе с массивами

var
  i,j,q,w:Integer;
begin
strngrd1.Visible:=True;
i:=StrToInt(Edt1.text);
j:=StrToInt(edt2.Text);
strngrd1.ColCount:=i;
strngrd1.RowCount:=j;
strngrd1.Height:=30*j;
strngrd1.Width:=70*i;
for q:=0 to i-1 do
for w:=0 to j-1 do
strngrd1.Cells[q,w]:=IntToStr(Random(100));
end;

var
  Form1: TForm1;
  a: array[1..20,1..20] of integer;
  m,n: integer;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedCols:=1;
  fixedRows:=1;
  defaultColwidth:=45;
  scrollBars:=ssBoth;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
val(Edit1.Text,m,i);
if (i<>0)or not(m in [1..20])then
 begin
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,n,i);
if (i<>0)or not(n in [1..20])then
 begin
  Edit2.Clear;
  Edit1.SetFocus;
  exit
 end;
with StringGrid1 do
 begin
  RowCount:=m+2;
  ColCount:=n+2;
  for i:=1 to m do
  for j:=1 to n do
   begin
    a[i,j]:=1+random(100);
    StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
   end;
  end;
end;
 
 
end.