Переставить местами столбцы матрицы - QBasic

Формулировка задачи:

Всем доброго времени суток! Помогите пожалуйста написать код программы! Дан массив A(N,N). Переставить местами столбцы массива: 1<->N, 2<->(N-1)... Отсортировать предпоследний столбец в порядке возрастания.

совсем некому помочь?

Решение задачи: «Переставить местами столбцы матрицы»

Листинг программы

CLS
OPTION BASE 1
CONST n = 7
DIM A(n, n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = 9 * RND
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO n \ 2
   SWAP A(i, j), A(i, n + 1 - j)
NEXT j, i
 
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
   IF A(i, n - 1) > A(j, n - 1) THEN SWAP A(i, n - 1), A(j, n - 1)
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT A(i, j);
NEXT j: PRINT
NEXT i
END

Объяснение кода листинга программы

Объявляется переменная n и присваивается ей значение 7 (количество строк и столбцов в матрице).
Объявляется двумерный массив A размером n на n для хранения чисел.
Заполняется массив A случайными числами от 0 до 9 с помощью функции RND.
Выводится на экран содержимое матрицы A.
Производится перестановка строк матрицы A с помощью цикла FOR и функции SWAP.
Производится сортировка столбца n-1 матрицы A по убыванию с помощью цикла FOR и условного оператора IF.
Выводится на экран отсортированное содержимое матрицы A.