Необходимо поставить элементы в столбцах в порядке возрастания их модулей - Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,p,t: integer;
begin
  repeat
    write('Ââåäèòå n, m (n<',nmax,'; m<',nmax,'): ');
    readln(n,m);
  until (n in[1..nmax]) and (m in [1..nmax]);
  writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for p:=1 to m do
    for i:=2 to n do
      for j:=n downto i do
        if abs(a[j,p])<abs(a[j-1,p]) then
        begin
          t:=a[j,p];
          a[j,p]:=a[j-1,p];
          a[j-1,p]:=t;
        end;
  writeln('ÏðåîáðГ*çîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.