Напишите программу поиска максимального элемента среди минимальных элементов

var
  Form1: TForm1;
  a   : array of array of Integer;
  min : array of integer;
  i,j,n,m,max:Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
if not TryStrToInt(Edit1.Text,n) then exit;
if not TryStrToInt(Edit2.Text,m) then exit;
SetLength(a,n+1,m+1);
SetLength(min,n+1);
StringGrid1.RowCount := n+1;
StringGrid1.ColCount := m+2;
 
randomize;
for i := 1 to n do
for j := 1 to m  do begin
    a[i,j] := random(256);
    StringGrid1.Cells[j,i] := IntToStr(a[i,j]); 
    end;
 
for i := 1 to n do StringGrid1.Cells[0,i] := 'Строка ' + IntToStr(i);
for j := 1 to m  do StringGrid1.Cells[j,0] := 'Столбец ' + IntToStr(j);
StringGrid1.Cells[m+1,0] := 'Минимальный';
 
for i := 1 to n do begin
min[i] := a[i,1];
for j := 1 to m do begin
    if a[i,j] < min[i] then min[i] := a[i,j];
    end;
    StringGrid1.Cells[m+1,i] := IntToStr(min[i]);
    end;
 
max := min[1];
for i := 1 to n do
    if min[i] > max then max := min[i];
 
ShowMessage('MAX=' + IntToStr(max));