поиск седловых точек (в виде процедуры), нужна помощь Опции

[RrgTt_fx32!b]

Прошу не пинать... Долго рылся в поиске, но чтобы седловая точко находилась с помощью процедуры не нашел.

помогите с решением:
Дана целочисленная прямоугольная матрица, определить:
а) номера строк и столбцов всех седловых точек (оформить в виде процедуры)
b) сумму элементов в тех строках, которые содержат хотябы 1 отрицательный элемент (оформить в виде функции)
желательно как-нибудь попроще

со второй частью я почти разобрался, скажите только как сделать чтоб программа выводила сумму всех строк, в которых есть отрицательные эл-ты, а не первой как здесь

program qwerty;
uses crt;
const n=5;
m=5;
type
mass = array [1..n,1..m] of real;
var
a: mass;
s: real;
i,j: integer;
             function SumElemVStrokaxKotSoderOtricElem
              (n,m: integer): real;
             var
             s1: real;
             i,j: integer;
             begin
             s1:=0;
             for i:=1 to n do begin
             for j:=1 to m do begin
             if a[i,j]<0 then
             for i:=1 to n do
             s1:=s1+a[i,j];
             SumElemVStrokaxKotSoderOtricElem:=s1;
             end; end; end;

  begin
  clrscr;
  writeln ('vvedite chisla');
  for i:=1 to n do begin
  for j:=1 to m do
  readln(a[i,j]);
  end;
  s:=SumElemVStrokaxKotSoderOtricElem(n,m);
  writeln ('s=',s:2:2);
  readln;
  end.