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

program PascalGuru;
 
type 
  sedl= array[1..50] of integer; 
 
var
  A: array[1..50, 1..50] of integer; 
  i, j, n,mini,maxi: integer;
  c:sedl;
 
procedure Sedlmin(var c:sedl; mini:integer);
var i,j,n:integer;
begin
  for i := 1 to n do   
  begin
    C[i] := A[i, 1];
    for j := 2 to n do
      if A[i, j] < C[i] then
        C[i] := A[i, j];
        mini:=c[i];
  end; 
  end;
  
procedure Sedlmax(var c:sedl; maxi:integer);
var i,n,j:integer;  
begin
  for j := 1 to n do 
  begin
    c[j] := A[1, j];
    for i := 2 to n do
      if A[i, j] > c[j] then 
        c[j] := A[i, j];
        maxi:=c[j];
  end; 
  end;
  
  
  begin
  write('Введите размер матрицы: ');
  readln(n);     
  
  for i := 1 to n do
    for j := 1 to n do 
    begin
      write('A[', i, ',', j, ']='); 
      readln(A[i, j]); 
    end;
  
  write('Матрица: ');
  for i := 1 to n do 
  begin
    writeln;
    for j := 1 to n do 
      write(A[i, j]:8); 
  end;
  for i := 1 to n do begin
   Sedlmin(c,mini)
   end;
 for j := 1 to n do begin
 Sedlmax(c,maxi)
 end;
      if mini = maxi then
      writeln;
        writeln('Седловое число: "', mini, '" с адресом: [', i, ',', j, ']')
  
end.

type mas=array [1..100,1..100] of integer;
 
function Saddle(a:mas; r,c :integer) : boolean;
var
  arc : integer;  {a[r,c]}
  MinRMaxC,  MaxRMinC, res : boolean;
begin
  arc := a[r,c];
  MinRMaxC := (a[r,c-1] > arc) and (a[r,c+1] > arc) and (a[r-1,c] < arc) and (a[r+1,c] < arc);
  MaxRMinC := (a[r,c-1] < arc) and (a[r,c+1] < arc) and (a[r-1,c] > arc) and (a[r+1,c] > arc);
  res := MinRMaxC OR MaxRMinC;
  Saddle := res;
end;
 
procedure Proc(a:mas; i,j,n:integer);
begin
  for i:= 2 to n-1 do
  begin
    for j:= 2 to n-1 do
    begin
       if Saddle(a,i,j) then
       writeln('i=',i,' j=',j);
    end;
  end;
end;
 
var
 i,j,n: integer;
 a:mas;
begin
  randomize;
  write('Введите размер матрицы: '); readln(n);
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(50);
  Proc(a,i,j,n);
end.

program pr2;
 
const
  n = 3;
 
type
  matr = array[1..n, 1..n] of integer;
 
var
  a: matr;
 
procedure formir(var a: matr; k: integer);
var
  i, j: integer;
begin
  randomize; 
  for i := 1 to k do 
    for j := 1 to k do
      a[i, j] := Random(10) - 3;
  for i := 1 to k do
  begin
    for j := 1 to k do
      write(a[i, j]:4);
    writeln;
  end;
end;
 
procedure nomera(a: matr; k: integer);
var
  max, min, i, j: integer;
begin
  for i := 1 to n do
  begin
    min := 1;
    for j := 1 to n do
      if a[i, j] < a[i, min] then min := j;
    max := 1;
    for k := 1 to n do
      if a[max, min] < a[k, min] then max := k;
    if max = i then writeln('Точка матрицы [', max, ',', min, '] седловая');
  end;
end;
 
begin
  writeln('Целочисленная квадратная матрица: ');
  formir(a, n);
  nomera(a, n);
end.