В массиве поменять местами 1-ю строку с последней - QBasic

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

В массиве поменять местами 1-ю строку с последней, На эту тему был запрос, но ответа не получил. Сделал сам такую программу:

CLS
DIM А(4, 6)
FOR i = 1 TO 4
  FOR j = 1 TO 6
A(i, j) = INT(RND(i) * 20)
   LOCATE i * 1, j * 3
      PRINT А(i, j);
NEXT j, i
      PRINT
FOR i = 1 TO 4  STEP 4
   FOR j = 1 TO 6
      X = A(i, j) 
      A(i, j) = A(4, j)                                          
      A(4, j) = X
NEXT j, i
FOR i = 1 TO 4
 FOR j = 1 TO 6
     LOCATE 5 + i * 1, j * 3
       PRINT A(i, j);
NEXT j, i

На выходе имеем:

 10   11     5     6   15
 15   16   14     0     8
 15     7   19   17     1
   7   10   15     1   11
 
   7   10   15     1   11
 15   16   14     0     8
 15     7   19   17     1
 10   11     5     6   15

При чётном количестве строк добавил STEP 4 в выражение для FOR i = 1 TO 4 STEP 4. Результат получился. А при нечётном количестве строк – получается путаница. Значит что то не так, а что не так?

Решение задачи: «В массиве поменять местами 1-ю строку с последней»

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

CLS
INPUT "vvedite kolichestvo strok ",m
INPUT "vvedite kolichestvo stolbcov ",n
DIM А(m, n)
FOR i = 1 TO m
  FOR j = 1 TO n
A(i, j) = INT(RND(i) * 20)
   LOCATE i * 1, j * 3
      PRINT А(i, j);
NEXT j, i
      PRINT
FOR i=1 TO n
SWAP a(1,i),a(m,i)
NEXT
FOR i = 1 TO m
 FOR j = 1 TO n
     LOCATE 5 + i * 1, j * 3
       PRINT A(i, j);
NEXT j, i

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

Задается количество строк и столбцов массива с помощью функции INPUT.
Создается массив А(m, n) с помощью функции DIM.
В цикле FOR i = 1 TO m, FOR j = 1 TO n происходит заполнение массива случайными числами от 0 до 19 с помощью функции A(i, j) = INT(RND(i) * 20).
С помощью функции LOCATE и функции PRINT происходит вывод значений массива на экран.
В цикле FOR i=1 TO n выполняется обмен первой строки массива с последней.
Снова с помощью функции LOCATE и функции PRINT происходит вывод значений массива на экран.