Вывести упорядоченный список номеров столбцов и соответствующих им сумм

Пожалуйста срочно нужна помощь с заданием ... заранее большущее СПАСИБО !!!

Задание

Дана квадратная матрица размером n х n, содержащая вещественные числа. Определить сумму элементов в каждом столбце матрицы и упорядочить номера столбцов по убыванию значений найденных сумм. Вывести упорядоченный список номеров столбцов и соответствующих им сумм.

Добавлено через 43 минуты 8 секунд
вот вроде написал проверьте правильно ли работает ...а то я уже запутался ....с условием задачи все совпадает ?

{Находим суммы и записываем в новый массив}
uses crt;
var
n,m,i,j,sum,x:integer;
a:array[1..50,1..50] of integer; {исходный массив}
b:array[1..50]of integer;{массив для предварительного результата}
c:array[1..50] of integer;

begin
clrscr;
randomize;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln('Matrica:');{создание матрицы}
for i:=1 to m do c[i]:=i;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
Sum:=0;
for i:=1 to n do
Sum:=Sum+a[i,j]; {считаем суммы в столбцах}
b[j]:=sum; {создаем из них массив}
end;
{Для создания необходимого результата (сортировка по убыванию)}
for i:=1 to m-1 do
for j:=i+1 to m do
if b[i]<b[j] then
begin
x:=b[i];
b[i]:=b[j];
b[j]:=x;
x:=c[i];
c[i]:=c[j];
c[j]:=x;
end;
writeln('Otsortirovannyj massiv summ');
for i:=1 to m do
write(c[i],' ');
writeln;
for i:=1 to m do
write(b[i],' ');
readln
end.

0

Вот поправил незначительные ошибки и, кстати по условию массив вещественный и квадратный.
Кое-что менял прямо здесь, посмотри, может пропустил(типа m->n)

0