Задача, массиы, переставить местами столбцы, 4. Создать массив А(4х6), переставить местами столбцы с min и max сумм Опции

[Gidropon]

Помогите пожалуйста, пытасюь решать задачи сам, но иногда возникают серьёзные проблемы ((
Дана задача
Создать массив А(4х6), переставить местами столбцы с min и max суммой.

randomize; {создал массив 4на6 и заполнил}
writeln('Massiv A 4x6');
for i:=1 to 4 do
begin
    for j:=1 to 6 do
    begin
    a[i,j]:=random(90)+10;
    write(a[i,j], '  ');
    end;
    writeln;
end;
.
.
.
for j:=1 to 6 do {ищу суммы столбцов}
    begin
    s:=0;
    for i:=1 to 4 do
        s:=s+a[i,j];
        b[s]:=s;
        write(b[s], ' ');
    end;
.
.
.
for s:=1 to 6 do 
{ это промежуточный этап, пытаюсь найти максимальный элемент, а затем
  и минимальный, чтобы определить какие столбцы менять, но не работает ...}
    begin
    max:=1;
    if b[s]>max then
    end;
c[m]:=max;
write(b[s]);

помогите пожалуйста.

[мисс_граффити]

b[s]:=s; 

Вот это место не поняла....
А если у тебя сумма равна 400?
разве тут не b[j] нужно?

Сообщение отредактировано: мисс_граффити - 20.11.2006 18:17

[Gidropon]

b[s]:=s; 

разве тут не b[j] нужно?

Одномерный массив b[s] заполняется суммами столбцов, этот кусочек работает как надо, но вот дальше ...