Работа с двумерными массивами

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Spin;
 
type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    StringGrid2: TStringGrid;
    Edit1: TEdit;
    Label4: TLabel;
    SpinEdit2: TSpinEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  m,n:integer;
  a:array of array of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
begin
randomize;
m:=SpinEdit1.Value;
StringGrid1.RowCount:=m;
StringGrid2.RowCount:=m;
n:=SpinEdit2.Value;
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=n;
Setlength(a,m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=random(100);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,imax,jmax,imin,jmin,buf: integer;
begin
imax:=0; jmax:=0;
imin:=0; jmin:=0;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  if a[i,j]>a[imax,jmax] then
   begin
    imax:=i;
    jmax:=j;
   end;
  if a[i,j]<a[imin,jmin] then
   begin
    imin:=i;
    jmin:=j;
   end;
 end;
Edit1.Text:='Минимальный элемент a['+IntTostr(imin)+','+IntTostr(jmin)+']='+
             IntToStr(a[imin,jmin])+
             '  Максимальный элемент a['+IntTostr(imax)+','+IntTostr(jmax)+']='+
             IntTostr(a[imax,jmax]);
buf:=a[imin,jmin];
a[imin,jmin]:=a[imax,jmax];
a[imax,jmax]:=buf;
for i:=0 to m-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
end;
 
end.

 var a,b:array[1..10,1..10] of Integer;
i,j,k,l,max,min:Integer;
begin
k:=StrToInt(edt1.Text);
l:=StrToInt(edt2.Text);
for i:=1 to k do
for j:=1 to l do
begin
strngrd1.cells[i-1,j-1]:=inttostr(a[i,j]);
end;
for i:=1 to k do
for j:=1 to l do
if a[i]<b[max]  then
begin
a[i,j]:=Max;
imax:=i;
end;
if a[j]>b[min] then
begin
b[i,j]:=min;
imin:=j
end;
strngrd1.cells[i-1,j-1]:=inttostr(a[i,j]);
strngrd2.cells[i-1,j-1]:=inttostr(b[i,j]);
end;
end.