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

INPUT "кол-во строк в массиве=";n
INPUT "кол-во столбцов в массиве=";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 "полученный массив"
PRINT
FOR I=1 TO n
FOR J=1 TO m
PRINT A(i,j);
NEXT J
PRINT
NEXT I