сортировка стоблцов матрицы по убыванию сумм их элементов

[rev1ver]

помогите пожалуйста
задача-упорядочить столбцы в матрице 10х15 по убыванию сумм их элементов)
опустим описание и ввод матрицы. у меня получилось такое:
k:=1;
while k<>0 do
begin
for j:=1 to m-1 do
begin
k:=0;
for i:=1 to n do
sum1:=sum1+a[i,j];
for i:=1 to n do
sum2:=sum2+a[i,j+1];
if sum1>sum2 then
begin
k:=1;
for i:=1 to n-1 do
begin
p:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=p;
end;
end;
sum1:=0;
sum2:=0;
end;
end;

но упорядочивает оно только первые два столбца, дальше не хочет ни в какую, виснет(

[alex_fcsm]

uses crt;
const m=10;
      n=15;
var a:array [1..m,1..n] of real;
    b,temp:array[1..n] of real;
    x:real;
    i,j,k:integer;

begin
randomize;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3:0);
   end;
   writeln;
 end;
for j:=1 to n do
 begin
  b[j]:=0;
   for i:=1 to m do
    b[j]:=b[j]+a[i,j];
 end;

 for i:=2 to n do
  for j:=n downto i do
    if b[j]>b[j-1] then
   begin
     x:=b[j];
     b[j]:=b[j-1];
     b[j-1]:=x;
     for k:=1 to m do
      temp[k]:=a[k,j];
     for k:=1 to m do
      a[k,j]:=a[k,j-1];
     for k:=1 to m do
      a[k,j-1]:=temp[k];
   end;
writeln('==============================');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3:0);
  writeln;
 end;
writeln('==============================');
for i:=1 to n do
 write(b[i]:3:0,' ');
end.

[rev1ver]

спасибо теперь можешь объяснить, что ты в этой проге делаешь?
и кстати,
элементы вещественные

[alex_fcsm]

Чем конкретнее вопрос тем конкретнее ответ

Смысл такой: сначала считаем по всем столбцам суммы элементов и записываем их в массив. Начинаем сортировать массив, при этом происходит перестановка элементов и при этом переставляем столбцы на соответствующих местах

integer на real никак не меняется? И по-моему у меня сортировка по возрастанию. Надеюсь догадаетесь что, где заменить

[rev1ver]

ээ а че менять-то надо? что ни меняю, всеравно не получается(
ап: все поменял, вс еработает) огромное спасибо

[alex_fcsm]

Посмотрите вверху я поправил если Вам так тяжело

P.S. Нечего раньше времени паниковать

[capta1n]

Мой вариант - смысл тот же:

program masss;
const
 m = 10;
 n = 15;
type
 DataItem = array [1..m,1..n] of real;
 MasItem = array [1..n] of real;
var
 A : DataItem;
 ST : MasItem;
 sum,x : real;
 i,j,k : byte;
begin

  randomize;
  writeln ('Input:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      A[i,j]:=random(3);
      write(A[i,j]:0:1,'|')
    end;
    writeln
  end;
  writeln;
  writeln ('Sum:');
  sum:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do sum:=sum+A[j,i];
    ST[i]:=sum;
    write (i,' column: (',sum:0:1,'); ');
    sum:=0
  end;
  writeln;

  for i:=1 to n-1 do
  begin
    j:=i;
    for k:=i+1 to n do
     if ST[k]>ST[j] then j:=k;
    x:=ST[j];
    ST[j]:=ST[i];
    ST[i]:=x;
    for k:=1 to m do
    begin
      x:=A[k,i];
      A[k,i]:=A[k,j];
      A[k,j]:=x
    end
  end;
  writeln;
  writeln ('Output:');
  for i:=1 to m do
  begin
    for j:=1 to n do write (A[i,j]:0:1,'|');
    writeln
  end;

  readln;
end.