Поиск позиции минимального элемента через функцию матриц разного размера

var
  Form1: TForm1;
 
implementation
 
type
  tmatr = array of array of integer;
 
function MinCoord(Matr: tmatr): TPoint;
var
  i, j: integer;
  //TempMin: integer;
begin
  //TempMin := High(integer);
  Result.Y := 0;
  Result.X := 0;
  For i := 0 to High(Matr) do
    For j := 0 to High(Matr[i]) do
      If Matr[MinCoord.Y, MinCoord.X] > Matr[i, j] then
      begin
        //TempMin := Matr[i, j];
        MinCoord.Y := i;
        MinCoord.X := j;
      end;
end;
 
{$R *.lfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: tmatr;
  i, j: integer;
  ACoord, BCoord: TPoint;
begin
  SetLength(a, SE1.value, SE1.value);
  SetLength(b, se2.value, se2.value);
  for i := 0 to High(a) do
    for j := 0 to High(a[i]) do
      a[i, j] := strtoint(sg1.cells[i, j]);
  for i := Low(b) to High(b) do
    for j := Low(b[i]) to High(b[i]) do
      b[i, j] := strtoint(sg2.cells[i, j]);
  ACoord := MinCoord(a);
  e1.text := IntToStr(ACoord.Y);
  e2.text := IntToStr(ACoord.X);
  sg1.Selection:=TGridRect(rect(ACoord.Y, ACoord.X, ACoord.Y, ACoord.X));
  BCoord := MinCoord(b);
  e3.text := IntToStr(BCoord.Y);
  e4.text := IntToStr(BCoord.X);
  sg2.Selection:=TGridRect(rect(BCoord.Y, BCoord.X, BCoord.Y, BCoord.X));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: integer;
begin
  for i := 0 to SE1.value do
    for j := 0 to SE1.value do
      sg1.cells[i, j]:=InttoStr(random(200)-100);
  for i := 0 to SE2.value do
    for j := 0 to SE2.value do
      sg2.cells[i, j]:=InttoStr(random(200)-100);
  Button1.Click;N
end;
 
procedure TForm1.SE1Change(Sender: TObject);
begin
  sg1.RowCount := SE1.value;
  sg1.ColCount := SE1.value;
  Button2.Click;
end;
 
procedure TForm1.se2Change(Sender: TObject);
begin
  sg2.RowCount := se2.value;
  sg2.ColCount := se2.value;
  Button2.Click;
end;
 
end.