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

var
  Form1: TForm1; i,j,m,n:integer;  a:array of array of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
m:=strtoint(edit1.Text);
n:=strtoint(edit2.Text);
setlength(a,m,n);
for  j:=0 to m-1 do
 for i:=0 to n-1 do begin
    a[i,j]:=StrToInt(stringgrid1.cells[i,j]);
                   end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var imax,max,k,min,jmin,jmax,imin:integer;
 
begin
for i:=0 to m-1 do begin {идем по строкам}
max:=a[i,0]; {макс=первому элементу в строке, imax-столбец в котором}
 for j:=0 to n-1 do      {будет максимальный элемент строки}
  if a[i,j]>max then
   begin
    max:=a[i,j];    {нашли}
    imax:=i;       {запомнили столбец и строку}
    jmax:=j;
   end;
                   end;
min:=a[imax,jmax];
for i:=0 to m-1 do
if a[i,jmax]<min then
    begin
      min:=a[i,jmax];  {находим минимальный}
      imin:=i;        {запоминаем номер столбца}
    end;
if max<>min then
label1.Caption:=inttostr(a[imax,imin])  {выводим и заканчиваем поиск}
else label1.Caption:='0';                          {если нет переходим к следующему столбцу}
 {если дошли до конца и нет совпадений}
 
end;
 
end.

var
   max,min : integer;
  i, j, m, n: integer;
  a: array  of array of integer;
begin
m:=strtoint(edit1.Text); //кол-во строк
n:=strtoint(edit2.Text); // кол-во столбцов
 
setlength(a,m,n);
 
for  i:=0 to m-1 do
 for j:=0 to n-1 do
    a[i,j]:=random(20);
 
 Label1.Caption := 'Максимальные значения в строках';
 
  for i := 0 to m-1 do
    begin
      max := a[i, 0];
      for j := 0 to n-1 do
        if a[i, j] > max then
          max := a[i, j];
      Label1.Caption := Label1.Caption + #10 + inttostr(max);
    end;
 
  Label1.Caption := Label1.Caption + #10 + 'Минимальные значения в столбцах';
 
  for i := 0 to n-1 do
    begin
      min := a[0, i];
      for j := 0 to m-1 do
        if a[j, i] < min then
          min := a[j, i]; { нашли }
      Label1.Caption := Label1.Caption + #10 + inttostr(min);
    end;
end.

procedure TForm6.Button2Click(Sender: TObject);
 
var
  min: integer;
  i, j, m, n, max,k,imin: integer;
  a: array of array of integer;
begin
  m := strtointdef(Edit1.Text, 3);
  n := strtointdef(Edit2.Text, 4);
  setlength(a, m, n);
  for i := 0 to m-1 do
    for j := 0 to n-1 do
      begin
        a[i, j] := random(20);
        StringGrid1.Cells[j, i] := inttostr(a[i , j ]);
      end;
//////////////////////////////////////////////////////////////
     for i := 0 to m - 1 do
    begin { идем по строкам }
          max := 0; { макс=первому элементу в строке, imax-столбец в котором }
          for j := 0 to n - 1 do { будет максимальный элемент строки }
            if a[i, j] > a[i, max] then
                max := j; { нашли }
 
           imin := i;
 
          for k := 0 to m - 1 do
            if a[k, max] < a[imin, max] then
                imin := k; { запоминаем номер столбца }
 
          if i = imin then
            begin
              Label1.Caption := 'элемент a[' + inttostr(imin) + ',' + inttostr(max) + ']=' + inttostr(a[imin, max]);
              exit
            end
           else
           Label1.Caption := '0';
        end;
//////////////////////////////////////////////////////////////////
 
end;