Найти среднее арифметическое отрицательных элементов матрицы

REM двумерный массив
DIM b(i, j)
FOR i = 1 TO 5
    FOR j = 1 TO 6
        PRINT b(i, j)
    NEXT j
NEXT i
min = 100
FOR i = 1 TO 5
    FOR j = 1 TO 6
        IF b(i, j) <= min THEN
            min = b(i, j)
        END IF
    NEXT j
NEXT i
PRINT min
k = 0: s = 0
FOR i = 1 TO 5
    FOR j = l TO 6
        IF b(i, j) > 0 THEN
            s = s + b(i, j)
            k = k + l
        END IF
    NEXT j
NEXT i
sr = s / k
PRINT sr

m = 5: n = 6
DIM a(m, n)
FOR i = 1 TO m
    FOR j = 1 TO n
        PRINT "enter a("; i; ","; j; ")";
        INPUT ": ", a(i, j)
    NEXT
NEXT
FOR i = 1 TO m
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
FOR i = 1 TO m
    FOR j = 1 TO n
        IF a(i, j) < 0 THEN s = s + a(i, j): k = k + 1
    NEXT
NEXT
min = 1E38
FOR j = 1 TO n
    sum = 0
    FOR i = 1 TO m
        sum = sum + a(i, j)
    NEXT
    IF sum < min THEN min = sum
NEXT
IF k THEN PRINT "average = "; s / k ELSE PRINT "no negative"
PRINT "min ="; min