седловые точки

[fkty]

Здравствуйте, помогите пожалуйста исправить ошибки.Задача:элемент матрицы называется седловой точкой,если он является наименьшим в строке и наибольшим в столбце или, наоборот, наибольшим в строке и наименьшим в столбце.Для данной вещественной матрицы А размером mxn указать индексы всех седловых точек.
Проблема, когда вводишь такой пример матрицы:
1 2 3
4 5 6
7 8 9
то здесь седловые точки это 3 и 7 выводит правильно,но если ввести матрицу:
1 1 1
1 1 1
1 1 1
то вывод не правильный, должны быть все элементы.

uses crt;
const
    m=3;
    n=3;
var
   mas:array[1..m,1..n] of real;
   i,j,f,r1,r2,mmin,mmax,lmax,lmin,b:integer;
   min,max:real;
begin
clrscr;
r1:=0;
r2:=0;
b:=0;
writeln('введите матрицу:');
for j:=1 to n do
 for i:=1 to m do
  read(mas[i,j]);
for j:=1 to n do
 begin
  min:=mas[1,j];
  max:=mas[1,j];
  for i:=1 to m do
   begin
    if min>=mas[i,j] then
     begin
      min:=mas[i,j];
      lmin:=i;
     end;
    if max<=mas[i,j] then
     begin
      max:=mas[i,j];
      lmax:=i;
     end;
  end;
 for f:=1 to n do
  begin
   if mas[lmin,f]<=mas[lmin,j] then
    begin
     mmax:=j;
     r1:=r1+1;
    end;
   if mas[lmax,f]>=mas[lmax,j] then
    begin
     mmin:=j;
     r2:=r2+1;
    end;
  end;
writeln;
 if r1=n then
  begin
   writeln('a[',lmin,',',mmax,']');
   b:=1;
  end;
 if r2=n then
  begin
   writeln('a[',lmax,',',mmin,']');
   b:=1;
  end;
  r1:=0;
  r2:=0;
 end;
if b=0 then
writeln('таких ячеек в матрице нет');
readln;
readln;
end.

[fkty]

Никто не знает?

[BDA]

Было лень разбираться в Вашем алгоритме

uses crt;
const
  n = 3;
  m = 3;

var
  mas: array [1 .. n, 1 .. m] of real;
  maxl, minl: array [1 .. m] of real;
  maxr, minr: array [1 .. n] of real;
  i, j, count: integer;

begin
  clrscr;
  writeln('Введите матрицу:');
  for i := 1 to n do
    for j := 1 to m do
      read(mas[i, j]);
  for i := 1 to n do
  begin
    maxr[i] := mas[i, 1];
    minr[i] := mas[i, 1];
  end;
  for j := 1 to m do
  begin
    maxl[j] := mas[1, j];
    minl[j] := mas[1, j];
  end;
  for i := 1 to n do
    for j := 1 to m do
    begin
      if mas[i, j] > maxr[i] then
        maxr[i] := mas[i, j]
      else if mas[i, j] < minr[i] then
        minr[i] := mas[i, j];
      if mas[i, j] > maxl[j] then
        maxl[j] := mas[i, j]
      else if mas[i, j] < minl[j] then
        minl[j] := mas[i, j];
    end;
  count := 0;
  for i := 1 to n do
    for j := 1 to m do
      if (maxr[i] = minl[j]) or (minr[i] = maxl[j]) then
      begin
        writeln(i, ' ', j);
        inc(count);
      end;
  if count = 0 then
    writeln('Таких ячеек в матрице нет');
  readln;
  readln;
end.

[fkty]

BDA,спасибо