Объявить двухмерный массив и напечатать матрицу на экране - QBasic

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

Имеется задача: Объявить двухмерный массив и напечатать матрицу на экране. При этом, если в верхней или нижней строке содержится максимальный элемент, то необходимо поменять строки (верхнюю и нижнюю) местами. Просьба помочь с последним пунктом

CLS 
DIM A (3,3)
FOR I= 1 TO 3 STEP 1
FOR J=1 TO 3 STEP 1
INPUT A (i, j)
NEXT J
NEXT I
FOR I= 1 TO 3 STEP 1
FOR J= 1 TO 3 STEP 1
PRINT A (i, j)
NEXT J
PRINT " "
NEXT I
LET B=A (1,1)
LET KI=1
LET KJ=1
FOR I= 1 TO 3 STEP 1
FOR J= 1 TO 3 STEP 1
IF A (i, j) > B THEN
LET B= A (i, j)
LET KI= I
LET KJ= J
ELSE
END IF
NEXT J
NEXT I
PRINT B, KI, KJ

Решение задачи: «Объявить двухмерный массив и напечатать матрицу на экране»

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

FOR j = 1 TO 3
   SWAP A(1, j), A(3, j)
NEXT j

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

Объявляется переменная j типа целое число со значением 1.
Выполняется цикл FOR от 1 до 3.
Внутри цикла выполняется команда SWAP для обмена элементов массива A с индексами (1, j) и (3, j).
После выполнения цикла, значение переменной j увеличивается на 1.
Цикл выполняется до тех пор, пока значение переменной j не станет равным 4.
Результатом выполнения команды SWAP является обмен элементов массива A с индексами (1, 1), (1, 2) и (1, 3).
Значение переменной j увеличивается на 1 после каждой итерации цикла.
В результате выполнения кода на экран будет выведена матрица массива A.