Двумерный массив, 23 строки и 10 столбцов Опции

[Beseech]

Дан двумерный вещественный массив (таблица) из 23 строк и 10 столбцов. Выведите на экран заданный массив. Поменяйте местами столбцы с наибольшей и наименьшей суммами элементов. Выведите на экран найденные суммы и преобразованный массив.

Ну сам массив я напечатал и вывел его на экран, а вот с переменой столбцов непонимаю, кто может решите или расскажите как поменять столбцы(

[Айра]

Ну это можно сделать, например так:

var t: real;
...
for i:=1 to 23 do
    begin
      t:=a[i,n];
      a[i,n]:=a[i,m];
      a[i,m]:=t;
    end;
...

где n и m ранее найденные номера столбцов с максимумом и минимумом.