program PascalGuru;
var A:array[1..50,1..50] of integer;
    B:array[1..50] of integer;
    n,m,i,j,max:integer;
 
 
begin
write('kol-vo strok N= '); readln(n);
write('kol-vo stolbcov M= '); readln(m);
 
for i:=1 to n do
for j:=1 to m do begin write ('A[',i,',',j,']='); readln (A[i,j]); end;
 
write('A:');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:8);  end;
 
writeln;
 
for i:=1 to m do begin   max:=1;
  for j:=2 to n do
  if A[j,i]>A[max,i] then  A[max,i]:=A[j,i];  B[i]:=A[max,i]; end;
 
writeln('B:');
for i:=1 to m do write (B[i]:8);
 
readln;
end.