program two;
uses crt;
const
MAX=20;

type
line=Array[1..MAX] of real;

var
smin,min:real;
imin:Integer;
i,j,n,m,ind,k:Integer;
ok:boolean;
x:Array[1..MAX] of line;
buf:line;
juf:Array[1..MAX] of Integer;
inp:Text;

begin
Assign(inp,'matrix.txt');
Reset(inp);
Read(inp,n,m);{Є®«ЁзҐбвў® бвp®Є Ё бв®«Ўж®ў}
if (MAX<n) or (MAX<m) then
Write('*Ґ¦Ґ«*о бзЁв*вм! ')
else begin
for i:=1 to n do
for j:=1 to m do
Read(inp,x[i][j]);

for i:=1 to n do begin
buf[i]:=x[i][1];
juf[i]:=1;
for j:=2 to m do
if buf[i]<x[i][j] then begin
buf[i]:=x[i][j];
juf[i]:=j
end
end;
smin:=buf[1];
for i:=2 to n do begin
if smin>buf[i] then begin
smin:=buf[i];
imin:=i
end
end;
for i:=1 to n do
 begin
   min:=x[i,1]; ok:='true';
    
     for j:=2 to m do
       if x[i,j]<min then begin min:=x[i,j]; ind:=j; end;
     
     for k:=i downto 1 do
       if x[k,ind]>min then begin ok:='false'; k:=n; end;
     
     if ok then
      for k:=i to n do
        if x[k,ind]>min then begin ok:='false'; k:=n; end;
  
    if ok then write (i,ind);
 end;
Writeln;
Write('‘Ґ¤«®ўaп в®зЄa x=',juf[imin],' y=',imin)
end;
Close(inp)
end.