Const
 N=8;
Var
 A:Array[1..N,1..N] of Byte;
 i,j,Im,Jm,p:Byte;
 b:boolean;
Begin
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(256);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 p:=0;
 For Im:=1 to N do
  For Jm:=1 to N do
   begin
    b:=true;
    for i:=1 to N do
     if (i<>Im) and (A[i,Jm]>A[Im,Jm]) then b:=false;
    for j:=1 to N do
     if (j<>Jm) and (A[Im,j]>A[Im,Jm]) then b:=false;
    If b then
     begin
      Writeln('A[',Im,',',Jm,']= ',A[Im,Jm]);
      Inc(p);
     end;
   end;
 If p=0 then Writeln('No such elements!');
 Readln
End.