Задача, массиы, переставить местами столбцы, 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]);

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

[volvo]

этот кусочек работает как надо

Этот кусочек у тебя может портить значение другмх переменных (в зависимости от значения S). Если в TP программа не вываливается с ошибкой, а ошибка просто замалчивается - это еще не значит, что все правильно...

Доказать? Приведи описание массива B...

[Gidropon]

Этот кусочек у тебя может портить значение другмх переменных (в зависимости от значения S). Если в TP программа не вываливается с ошибкой, а ошибка просто замалчивается - это еще не значит, что все правильно...

Доказать? Приведи описание массива B...

Массив B у меня задействован пока только в одном единственном случае, когда пытаюсь определяю максимум, но в принципе я понял, что вы имеете в виду, надо просто присвоить b[s]:=c[m], и работать с С, чтобы не "испортились" данные в B, да ?
Так как правильно найти max и min в одномероном массиве и переставить соответственно столбцы в массиве А ?