type
    Tmatr=array[1..100,1..100] of integer;
function Search(As:Tmatr;ns,ms:integer):integer;
var
    i,j,t,d,nmin,mmax:integer;
begin
    Search:=0;
     for i:=1 to ns do
       begin
         nmin:=100;
         for j:=1 to ms do
           if As[i,j]<nmin then
             begin
               nmin:=As[i,j]; d:=j;
             end;
         mmax:=0;
         for j:=1 to ns do
           if As[j,d]>=mmax then
             begin
               mmax:=As[j,d]; t:=j;
             end;
         if t=i then
           begin
             Inc(Search);
             Writeln('[',t,',',d,']');
           end;
       end;
end;
var
    A:Tmatr;
    x,y,n,m,w:integer;
begin
    Writeln('Razmer [N,M]'); Readln(n,m);
     Randomize;
      for x:=1 to n do
        begin
          for y:=1 to m do
            begin
              A[x,y]:=Random(9)+1;
              Write(A[x,y]:4);
            end;
          Writeln;
        end;
      Writeln;
     w:=Search(A,n,m);
    Writeln('Naydeno: ',w);      
   Readln;
end.