uses crt;
var m,n,i,j,max:longint; a:array[1..1000,1..1000]of longint;
begin
clrscr;
write('m=');readln(m);
write('n=');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
for i:=1 to m do
begin
max:=a[i,1];
for j:=1 to n do if a[i,j]>max then max:=a[i,j];
writeln('Max cua hang ',i,': ',max);
end;
for j:=1 to n do
begin
max:=a[1,j];
for i:=1 to m do if a[i,j]>max then max:=a[i,j];
writeln('Max cua cot ',j,': ',max);
end;
readln
end.