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

var
  Form1: TForm1;
  a: array of array of integer;
  m,n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
 end;
with StringGrid2 do
 begin
  fixedCols:=1;
  fixedRows:=0;
  colcount:=2;
  defaultColwidth:=80;
  //colwidths[1]:=30;
  scrollBars:=ssVertical;
  cells[0,0]:='Номера строк';
  cells[1,0]:='Миинимальные';
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим ввод размеров
val(Edit1.Text,m,i);
if (i<>0)or not(m in [1..20])then
 begin
  ShowMessage('Неверно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,n,i);
if (i<>0)or not(n in [1..20])then
 begin
  ShowMessage('Неверно введено количество столбцов');
  Edit2.Clear;
  Edit1.SetFocus;
  exit
 end;
Setlength(a,m,n);
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=m+2;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=-20+random(50);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,min,max:integer;
begin
max:=0;//просто инициируем
for i:=0 to m-1 do
 begin
  min:=a[i,0];
  for j:=1 to n-1 do
  if a[i,j]<min then min:=a[i,j];
  StringGrid2.Cells[0,i+1]:='Строка '+inttostr(i+1);
  StringGrid2.Cells[1,i+1]:=IntToStr(min);
  if i=0 then max:=min
  else if min>max then max:=min;
 end;
StringGrid2.Cells[0,m+1]:='Максимальный';
StringGrid2.Cells[1,m+1]:=IntToStr(max);
end;