Двумерные массивы (Матрица)

[boycoffka]

Опять все оставила на последний день! И снова не успеваю... Подскажите код...

Для заданной действительной матрицы А=(аij)n*n определить индексы хотя бы одного элемента, одновременно являющегося максимальным в своей строке и минимальным в своем столбце. Если подобного элемента не существует, сообщить об этом.

На Delphi

[GetMax]

Когда то писал на паскале. Ввести матрицу и переделать под делфи сами надеюсь сможете.

Ind_i:=1;
  d:=0;
  Repeat
    Max:=Low(Byte);
    For Ind_j:=1 to Kol_stolb do
    If Max < Matr[Ind_i,Ind_j] then
    Begin
      Max:=Matr[Ind_i,Ind_j];
      Imax:=Ind_i;
      Jmax:=Ind_j;
    End;
    Imin:=Imax;
    Jmin:=Jmax;
    Min:=High(Byte);
    For Ind_k:=1 to kol_str do
    If Min > Matr[Ind_k,Jmin] then
    Begin
      Min:=Matr[Ind_k,Jmin];
      Imin:=Ind_k
    End;
    If (Imax=Imin) then
    Begin
      Writeln('Седловая точка расположена в ',Imax, ' строке в ',Jmin, ' столбце ');
      Inc(d)
    End;
    Inc(Ind_i);
  Until Ind_i > Kol_Str;
  If d = 0 then Writeln('Нт таких точек');

[boycoffka]

Спасибо тебе