Найти элемент матрицы, являющийся максимальным в своей строке и минимальным в своем столбце

var
  Form1: TForm1;
  var a:array of array of integer;
      m,n:integer;
implementation
 
{$R *.dfm}
//создание и заполнение таблицы
procedure TForm1.Button1Click(Sender: TObject);
begin
if (SpinEdit1.Value<=1)or(SpinEdit2.Value<=1) then
 begin
  Showmessage('Не верно введены размеры матрицы');
  exit;
 end;
m:=SpinEdit1.Value;
n:=SpinEdit2.Value;
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
Setlength(a,m,n); //выделим память под матрицу
Showmessage('Введите в таблицу целые числа!');
end;
 
//основная процедура
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,c,max,jmax,min,imin:integer;
    f:boolean;
begin
//проверим все ли ввели
i:=0;
k:=0;
while(i<n)and(k=0) do
 begin
  j:=0;
  while(j<m)and(k=0) do
   begin
    val(StringGrid1.Cells[i,j],a[j,i],c);
    if c<>0 then k:=1
    else j:=j+1;
   end;
  if k=0 then i:=i+1;
 end;
if k=1 then
 begin
  Showmessage('Не все элементы введены верно, поправьте');
  exit;
 end;
f:=false; //нет седловой точки
i:=0;
while(i<m)and not f do
 begin
  max:=a[i,0];jmax:=0;
  for j:=0 to n-1 do
  if a[i,j]>max then
   begin
    max:=a[i,j];
    jmax:=j;
   end;
  min:=a[0,jmax];
  imin:=0;
  for k:=0 to m-1 do
  if a[k,jmax]<min then
    begin
      min:=a[k,jmax];
      imin:=k;
    end;
  if imin=i then f:=true
  else i:=i+1;
 end;
if f then Edit1.Text:='a['+Inttostr(imin+1)+','+
                           Inttostr(jmax+1)+']='+
                           Inttostr(a[imin,jmax])
else Edit1.Text:='0';
end;

var
  Form1: TForm1;
  var a:array of array of integer;
      m,n:integer;
implementation
 
{$R *.dfm}
//создание и заполнение таблицы
procedure TForm1.Button1Click(Sender: TObject);
begin
if (SpinEdit1.Value<=1)or(SpinEdit2.Value<=1) then
 begin
  Showmessage('Не верно введены размеры матрицы');
  exit;
 end;
m:=SpinEdit1.Value;
n:=SpinEdit2.Value;
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
Setlength(a,m,n); //выделим память под матрицу
Showmessage('Введите в таблицу целые числа!');
end;