Найти и исправить ошибку в программе - QBasic

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

CLS
DIM a(n,n) AS INTEGER
FOR i =1 TO n
FOR j= 1 TO n
a (i,j)=in(RND*9)
PRINT a(i,j)
NEXT j
PRINT : PRINT
NEXT i
FOR i=1 TO n
FOR j=1 TO n
IF j> i THEN
 t=a(i,j)
a(i,j)= a(j,i)
a(j,i)=t
END IF
NEXT j
NEXT i
FOR i=1 TO n
PRINT a(i,j)
NEXT j
PRINT : PRINT 
NEXT i

завтра экзамен а ошибку найти не могу

Решение задачи: «Найти и исправить ошибку в программе»

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

CLS
INPUT "vvedite kolichestvo strok"; m
INPUT "vvedite kolichestvo stolbcov"; n
DIM a(m, n), b(n, m)
FOR i = 1 TO m: FOR j = 1 TO n
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
CLS
FOR i = 1 TO m: FOR j = 1 TO n
        b(j, i) = a(i, j)
NEXT: NEXT
PRINT "matrica"
FOR i = 1 TO m: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "new matrica"
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT b(i, j);
NEXT: PRINT: NEXT

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

В первой строке программы объявляются две переменные m и n типа INPUT, в которые с помощью функции INPUT заносятся значения количества строк и столбцов матрицы соответственно.
Далее, с помощью оператора DIM, создается двумерный массив a размером m на n, в который будет заноситься исходная матрица.
Затем, с помощью двух вложенных циклов FOR, программа просит ввести все элементы матрицы a.
После ввода всех элементов, с помощью оператора NEXT, происходит переход к следующему циклу.
Аналогично, создается двумерный массив b размером n на m, в который будет заноситься результат работы алгоритма.
С помощью двух вложенных циклов FOR, программа заполняет массив b значениями матрицы a, меняя местами строки.
Затем, с помощью функции PRINT, выводится исходная матрица a, а после нее - измененная матрица b.