uses crt;

var m,n,i,j,k: Integer;

a:array [0..100,0..100] of Integer;

ok,kt: Boolean;

begin

clrscr;

readln(m,n);

for i:=0 to m-1 do

for j:=0 to n-1 do

Read(a[i, j]);

ok:=False;

for i:=0 to m-1 do

begin

for j:=0 to n-1 do

begin

kt:=True;

for k:=0 to n-1 do

begin

if a[i,j]>a[i,k] then

begin

kt:=False;

Break;

end;

end;

if kt then

begin

for k:=0 to m-1 do

begin

if a[i,j]<a[k,j] then

begin

kt:=False;

Break;

end;

end; e

end;

if kt then

begin

WriteLn(i+1,',',j+1);

ok:= True;

end;

end;

end;

if not ok then

Writeln('ko co phan tu yen ngua nao');

readln;

readln;

end.