Вычислить сумму элементов каждого столбца массива. Упорядочить столбцы массива по убыванию сумм элементов столбцов.

  const
    n=5;
  var
    a: array[1..n,1..n] of integer;
    b: array[1..n] of integer;
    i,j,sum,p,buf: integer;
begin
  randomize;
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
 
  writeln('summa elementov stolbov');
  for j:=1 to n do
  begin
    sum:=0;
    for i:=1 to n do
    begin
      sum:=sum+a[i,j];
    end;
    b[j]:=sum;
  end;
  for i:=1 to n do write(b[i]:3);
  writeln; writeln;
 
  writeln('poluchennii massiv');
  for i:=2 to n do
    for j:=n downto i do
      if b[j-1]<b[j] then
      begin
        buf:=b[j-1];        {сортируем массив с суммами элементов}
        b[j-1]:=b[j];
        b[j]:=buf;
 
        for p:=1 to n do      {сортируем непосредственно масси}
        begin
          buf:=a[p,j-1];
          a[p,j-1]:=a[p,j];
          a[p,j]:=buf
        end;
      end;
 
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3);
    writeln;
  end;
  readln;
end.