Найти в матрице максимальный элемент и число,характеризующие его встречаемость в матрице — QBasic(Бейсик)

CLS
n = 3: m = 2
DIM a(n, m)
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
max = a(1, 1)
FOR i = 1 TO n: FOR j = 1 TO m
        IF a(i, j) > max THEN max = a(i, j)
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO m
        IF a(i, j) = max THEN k = k + 1
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "max ="; max
PRINT "k ="; k