Задача с двумерным массивом (Pascal)

[тиGра]

Доброго времени суток, помогите пожалуйста решить задачу.

Даны числа M и N и двумерный массив размером M*N некоторый элемент этого массива назовем Седловой точкой если он является одновременно наименьшим в своей строке и наибольшим в своем столбце. Напечатать индексы седловых точке если седловые точек нет напечатать 0.

[GenniY]

Поищи на форуме про двумерные массивы. Похожая задача уже была.

[тиGра]

Да есть задача про седловую точку, но в ней другое условие

[Impuls1989]

Ну так в чем проблемма?
Будет выглядеть как-то так:

function MaxCol(i:integer):integer;
var j,max:integer;
begin
 max:=array[0,i];
 for j:=1 to N-1 do 
  if array[j,i] > max then max:=array[j,i];   
MaxCol:=max;
end;

function MinRow(i:integer):integer;
var j,min:integer;
begin
 min:=array[i,0];
 for j:=1 to M-1 do 
  if array[i,j] < min then min:=array[i,j];   
MinRow:=min;
end;

for i:=0 to m-1 do
 for j:=0 to n-1 do
  begin
   if (array[i,j] = MaxCol(j)) and (array[i,j] = MinRow(i)) then Writeln(array[i,j])
  end;

[mMAg]

//mas - двумерный массив из условия задачи
//m1, m2 - одномерный вспомогательный массив
//ind - одномерный вспомогательный массив индексов
for i := 1 to M do
begin
  m1[i] := mas[i,1];
  indX[i] := 1;
  for j := 2 to N do
  begin
    if m1[i] > mas[i,j] then
    begin
      m1[i] := mas[i,j];
      indX[i] := j;
    end;
  end
end
//не не , я подумал так, что нужно найти мин. седловую точку, а если все то вот так еще дописать нужно:
for i := 1 to N do
begin
  m2[i] := mas[1,i];
  indY[i] := 1;
  for j := 2 to N do
  begin
    if m2[i] > mas[j,i] then
    begin
      m2[i] := mas[j,i];
      indY[i] := j;
    end;
  end
end

for i := 1 to M do
begin
  if m1[i] = m2[indX[i]] then
    writeln(i,indX[i],m[i]);
end;
//здесь i,indX[i] - есть координаты седловой точки, m[i] - значение