Для матрицы А размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой,

type matr=array of array of integer;
var
  Form1: TForm1;
  var a:matr;
      m,n:integer;
implementation
 
{$R *.dfm}
//процедура поиска седловых точек
procedure sedl(a:matr;m,n:integer;Mem:TMemo);
var i,j,k,max,min,jmax,jmin,imax,imin:integer;
    f:boolean;
begin
f:=false; //нет седловых точек
for i:=0 to m-1 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
   begin
    f:=true;
    Mem.Lines.Add('Седловая точка ['+Inttostr(imin+1)+','+Inttostr(jmax+1)+']='+Inttostr(a[imin,jmax]))
   end;
  min:=a[i,0];jmin:=0;//проверяем наоборот
  for j:=0 to n-1 do
  if a[i,j]<min then
   begin
    min:=a[i,j];
    jmin:=j;
   end;
  max:=a[0,jmin];
  imax:=0;
  for k:=0 to m-1 do
  if a[k,jmin]>max then
    begin
      max:=a[k,jmin];
      imax:=k;
    end;
  if imax=i then
   begin
    f:=true;
    Mem.Lines.Add('Седловая точка ['+Inttostr(imax+1)+','+Inttostr(jmin+1)+']='+Inttostr(a[imax,jmin]))
   end;
 end;
if not f then  Showmessage('Седловых точек нет!'); //если не нашли ни одной
end;
 
 //создание и заполнение таблицы
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=SpinEdit1.Value;
n:=SpinEdit2.Value;
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
Showmessage('Введите в таблицу целые числа!');
end;
 
//основная процедура
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
Setlength(a,m,n); //выделим память под матрицу
for i:=0 to m-1 do
for j:=0 to n-1 do
a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);//заполним ее числами из таблицы
Sedl(a,m,n,Memo1);
end;