Почему не меняются строки в массиве? - QBasic

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

DIM A(1 TO 5, 1 TO 5), B(1 TO 5, 1 TO 5)
INPUT "Vvedite nomer stroky K="; K
FOR I=1 TO 5
    FOR J=1 TO 5
        INPUT "Element massiva:", A(I,J)
        B(I, J) = A(I, J)
    NEXT J
NEXT I
CLS
PRINT "Massiv A"
FOR I=1 TO 5
    FOR J=1 TO 5
        PRINT A(I,J);
    NEXT J
    PRINT
NEXT I
IF K < I THEN SWAP B(K,J), B(K+1,J)
PRINT
PRINT "Massiv B"
FOR I=1 TO 5
    FOR J=1 TO 5
        PRINT B(I,J);
    NEXT J
    PRINT
NEXT I
END

Решение задачи: «Почему не меняются строки в массиве?»

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

IF K < 5 THEN
  FOR j=1 TO 5
    SWAP B(K,J), B(K+1,J)
  NEXT j
END IF

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

В данном коде выполняется следующая последовательность действий:

Проверка условия K < 5.
Если условие истинно, то выполняется цикл FOR с переменной j от 1 до 5.
Внутри цикла выполняется операция обмена элементов массива B по индексам K и K+1 для каждой переменной j.
После выполнения цикла, условие K < 5 проверяется снова.
Если условие истинно, то цикл повторяется.
Если условие ложно, то выполнение кода завершается.