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.