program hhh;
uses crt;
const n=6; m=6;
var
a,b:array[1..n,1..m+1] of integer;
i,k,l,x,max,t,j:integer;
BEGIN
clrscr;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(50) ;
write(a[i,j]:5); end;
writeln ; end;
l:=0;
for j:=1 to m do
begin
if a[1,j]>a[m,j] then
begin
l:=l+1;
for i:=1 to m do
b[i,l]:=a[i,j];
end;
end;
writeln;
writeln;
for i:=1 to n do begin
for j:=1 to l do
write(b[i,j]:5);
writeln;
end;
end.