Найти среднее арифметическое положительных элементов массива A(N,M)- QBasic(Бейсик)

CLS
INPUT "VVEDITE ZNACHENIE N: ", N
INPUT "VVEDITE ZNACHENIE M: ", M
DIM A(N, M)
PRINT "MASSIV: "
FOR I = 1 TO N
    FOR J = 1 TO M
        PRINT "A("; I; ","; J; ") = ";
        INPUT "", A(I, J)
        IF A(I, J) > 0 THEN SUM = SUM + A(I, J): K = K + 1
    NEXT
NEXT
PRINT "SREDNEE ARIFM. = "; SUM / K