Найти номера строк и столбцов всех седловых точек матрицы

uses crt;
type arr=array[1..100,1..100]of integer;
var
a:arr;
i,n,m:integer;
 
procedure vvod(var a:arr; n,m:integer);
var i,j:integer;
begin
 writeln('Vvedite elementy matricy');
 for i:=1 to n do
 for j:=1 to m do
 begin
  write('A[',i,' ',j,']: ');
  readln(a[i,j]);
 end;
end;
 
procedure print(var a:arr; n,m:integer);
var i,j:integer;
begin
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:2,' ');
  writeln;
 end;
end;
 
function otr(a:arr; m,num:integer):boolean;
var j:integer;
begin
 otr:=false;
 for j:=1 to m do if a[num,j]<0 then
 begin
  otr:=true;
  break;
 end;
end;
 
function sum(a:arr; m,num:integer):integer;
var j:integer;
begin
 sum:=0;
 for j:=1 to m do sum:=sum+a[num,j];
end;
 
procedure sedlov(a:arr; n,m:integer);
var i,j,min,max,jet,k:integer;
begin
 min:=1;
 max:=1;
 k:=0;
 For i:= 1 to m do
 begin
  For j:= 1 to n do
   if a[min, i] > a[j, i] then min:= j;
  For jet:= 1 to m do
   if a[min, max] < a[min, jet] then max:= jet;
  if a[min, i] = a[min, max] then
  begin
   inc(k);
   writeln('Sedlovaya tochka:   matrix[',min,',',max,']=',a[min,max]);
  end;
 end;
 if k=0 then writeln('Net selovyh tochek');
end;
 
begin
 clrscr;
 write('Vvedite razmer matricy N,M: ');
 readln(n,m);
 vvod(a,n,m);
 writeln('Ishodnaya matrica');
 print(a,n,m);
 writeln;
 for i:=1 to n do
 begin
  write('Stroka ',i,': ');
  if otr(a,m,i) then writeln('S=',sum(a,m,i)) else writeln('net otricatelnyh elementov ');
 end;
 sedlov(a,n,m);
 readln;
end.