Program Zadacha;
Var
 a:array [1..n,1..m] of integer;
 i,j,k,t:integer;
Begin
 for i:=1 to n do
 Begin
  for j:=1 to m do
  Begin
   a[i,j]:=random(40)-20;
   write(a[i,j]:4);
  end;
  writeln;
 end;
 writeln;
 for j:=1 to n do
 for i:=1 to n-1 do
 for k:=1 to n-i do
 if a[k,j>a[k+l,j]] then
  Begin
  t:=a[k,j];
  a[k,j]:=a[k+l,j]:
  a[k+l,j]:t;
 end;
 writeln('Rezultat:');
 for i:=1 to n do
  Begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
  end;
  readln
end.