Заменить в двумерном массиве 1-ый элемент на последний и наоборот — QBasic(Бейсик)

INPUT "kol-vo strok v massive="; n
INPUT "kol-vo stolbtsov v massive="; m
DIM A(n, m)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR I = 1 TO n
    FOR J = 1 TO m
        A(I, J) = (RND * 100) - 200
        PRINT A(I, J);
    NEXT J
    PRINT
NEXT I
SWAP A(1, 1), A(n, m)
PRINT "poluchennii massiv"
PRINT
FOR I = 1 TO n
    FOR J = 1 TO m
        PRINT A(I, J);
    NEXT J
    PRINT
NEXT I