Поставить последний столбец массива первое место, не меняя порядок остальных - QBasic

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

Дан массив 4x4 4,1,2,3,3,4,1,2,2,3,4,1,1,2,3,4 полученный массив напечатать. Поставить последний столбец на первое место, не меняя порядок остальных. Результат напечатать.

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

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

CLS
DIM A(1 TO 4, 1 TO 4) AS INTEGER
 
DATA 4,1,2,3
DATA 3,4,1,2
DATA 2,3,4,1
DATA 1,2,3,4
 
FOR i = 1 TO 4
FOR j = 1 TO 4
   READ A(i, j)
NEXT j, i
 
FOR i = 1 TO 4
FOR j = 1 TO 4
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO 4
FOR j = 4 TO 2 STEP -1
   SWAP A(i, j), A(i, j - 1)
NEXT j, i
 
FOR i = 1 TO 4
FOR j = 1 TO 4
   PRINT A(i, j);
NEXT j: PRINT
NEXT i
 
END

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

Создается массив A размером 4x4.
Заполняется массив A с помощью цикла DATA четырьмя строками по четыре элемента.
Выполняется два вложенных цикла FOR для чтения элементов массива A и их печати с помощью функции PRINT.
Выполняется два вложенных цикла FOR для перестановки элементов в последнем столбце массива A, начиная с четвертого столбца и двигаясь влево к первому столбцу с шагом -1 с помощью функции SWAP и оператора STEP.
Элементы массива A печатаются снова с помощью функции PRINT.
Программа заканчивается с помощью оператора END.