{$r-}
TYPE
 T=ARRAY[1..1] of Integer;

VAR
 A,Min_Col,Max_Line:^T;
 Max,Min:^Integer;
 i,j,N:Integer;
 b:Boolean;

BEGIN
 Write('N= ');
 ReadLn(N);
 GetMem(A, SizeOf(Integer)*N*N);
 GetMem(Min_Col, SizeOf(Integer)*N);
 GetMem(Max_Line, SizeOf(Integer)*N);

 WriteLn('Matrix A:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     Write('A[',i:2,',',j:2,']= ');
     ReadLn(A^[N*(i-1)+j]);
    end;
   WriteLn;
  end;
 WriteLn;
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A^[N*(i-1)+j]:4);
   WriteLn;
  end;
 WriteLn;

 For i:=1 to N do
  begin
   New(Max);
   Max^:=A^[N*(i-1)+1];
   Max_Line^[i]:=1;
   For j:=2 to N do
    If A^[N*(i-1)+j]>Max^ then
     begin
      Max_Line^[i]:=j;
      Max^:=A^[N*(i-1)+j];
     end;
   Dispose(Max);
  end;

 For j:=1 to N do
  begin
   New(Min);
   Min^:=A^[j];
   Min_Col^[j]:=1;
   For i:=2 to N do
    If A^[N*(i-1)+j]<Min^ then
     begin
      Min_Col^[j]:=i;
      Min^:=A^[N*(i-1)+j];
     end;
   Dispose(Min);
  end;

 b:=true;
 For i:=1 to N do
  If Min_Col^[Max_Line^[i]]=i then
   begin
    WriteLn('Saddle point: line N ',i,'; column N ',Max_Line^[i]);
    b:=false;
   end;
 If b then WriteLn('Matrix has no saddle point');

 FreeMem(A, SizeOf(Integer)*N*N);
 FreeMem(Min_Col, SizeOf(Integer)*N);
 FreeMem(Max_Line, SizeOf(Integer)*N);

 ReadLn;
END.