program asd;
uses crt;
const n=7;
m=2;
var q,x:array[1..n,1..n] of integer;
a1,a2,a3,a4,l,t2,t3,t1,k,s,i,j,v,f:integer;
u:real;
BEGIN clrscr;
randomize;
for j:=1 to n do BEGIN for i:=1 to n do BEGIN x[i,j]:=random(30)+1;
write(' ',x[i,j]);
end;
writeln;
end;
writeln;
for j:=1 to n do BEGIN a1:=abs(x[1,j]);
for i:=1 to n do if abs(x[i,j])>a1 then BEGIN a1:=abs(x[i,j]);
s:=i;
end;
t1:=x[1,j];
x[s,j]:=t1;
x[1,j]:=a1;
end;
for j:=1 to n do BEGIN for i:=1 to n do write(' ',x[i,j]);
writeln;
end;
end.