При вводе данных в программу возникает ошибка "индекс вне диапазона"

CLS
PRINT : PRINT
PRINT TAB(25);
PRINT "Поиск номера строки,";
PRINT TAB(13);
PRINT "для которой среднее арифметическое ее элементов максимально.";
PRINT " "
PRINT "Введите размеры матрицы"
PRINT "количество строк";
INPUT " ", n
PRINT "количество столбцов";
INPUT " ", m
DIM a(i, j)
DIM R(n)
PRINT "‚Введите элементы матрицы*:";
FOR i = 1 TO n
PRINT i, j; "-";
INPUT " ", x(i)
FOR j = 1 TO m
PRINT i, j; "-";
INPUT "", x(j)
NEXT j
NEXT i
PRINT "Исходная матрица";
PRINT a(i, j);
k = 0
g = 1
FOR i = 1 TO n
FOR j = 1 TO m
s = s + a(i, j)
NEXT j
R(i) = s / n
IF R(i) > k THEN k = R(i) AND g = 1
NEXT i
PRINT "Номер искомой строки"; g
PRINT "Наибольшее среднее арифметическое ее элементов= "; k

CLS
PRINT : PRINT
PRINT TAB(25);
PRINT "Поиск номера строки,";
PRINT TAB(13);
PRINT "для которой среднее арифметическое ее элементов максимально.";
PRINT " "
PRINT "Введите размеры матрицы"
PRINT "количество строк";
INPUT " ", n
PRINT "количество столбцов";
INPUT " ", m
DIM a(n, m)
DIM R(n)
PRINT "‚Введите элементы матрицы*:";
FOR i = 1 TO n
FOR j=1 TO m
INPUT a(i, j)
NEXT j
NEXT i
PRINT "Исходная матрица";
FOR i=1 TO n
FOR j=1 TO m
PRINT a(i, j);
NEXT j
PRINT
NEXT i
PRINT
k = 0
g = 1
FOR i = 1 TO n
s=0
FOR j = 1 TO m
s = s + a(i, j)
NEXT j
R(i) = s / m
IF R(i) > k THEN k = R(i): g = i
NEXT i
PRINT "Номер искомой строки"; g
PRINT "Наибольшее среднее арифметическое ее элементов= "; k