Программа на процедуры SUB и FUNCTION(QBasic)

[xtern]

Задали решить задачу по Qbasic

1)Найти сумму отрицательных элементов матрицы которые находятся ниже главной диагонали.Рассчитать используя процедуру SUB.
2)Среднее значение положительніх єлементов матрицы,которые находятся ниже главной диагонали.Рассчитать используя процедуру FUNCTION

Помогите найти ошибку

DECLARE SUB Summa (A!())
DECLARE FUNCTION Srednee (B!)
CLS
DIM SHARED m%
DIM SHARED n%
INPUT "kol-vo strok"; m%
INPUT "kol-vo stolbtsov"; n%
DIM A!(m%, n%)
DIM i%, k%, j%, Sum!, Sr!
FOR i% = 1 TO m%
FOR j% = 1 TO n%
INPUT "vvedite element"; A!(i%, j%)
NEXT: PRINT : NEXT
PRINT "matrica"
FOR i% = 1 TO m%
FOR j% = 1 TO n%
PRINT A!(i%, j%);
NEXT: PRINT : NEXT
CALL Summa(A!())
CALL Srednee(B!)
END

FUNCTION Srednee (B!)
DIM A!(i%, j%)
FOR i% = 1 TO n%
IF (A!(i%, i%)) > 0 THEN Sr! = Sr! + A!(i%, i%)
k% = k% + 1
NEXT
PRINT "Srednee="; Sr! / k%
END FUNCTION

SUB Summa (A!())
Sum! = 0
FOR i% = 1 TO m%: FOR j% = 1 TO n%
IF (i% > j%) AND ((A!(i%, j%)) < 0) THEN Sum! = Sum! + A!(i%, j%)
NEXT: NEXT
PRINT "Summ="; Sum!
END SUB

[Mad_Cat]

IF (A!(i%, i%)) > 0 THEN Sr! = Sr! + A!(i%, i%)

это на диагонали а не под ней
вот под диагональю среднее

FOR i% = 1 TO m%: FOR j% = 1 TO i%-1
IF (A!(i%, j%)) > 0 THEN Sr! = Sr! + A!(i%, i%)
k% = k% + 1
NEXT
PRINT "Srednee="; Sr! / k%

и сумма

FOR i% = 1 TO m%: FOR j% = 1 TO i%-1
IF(A!(i%, j%) < 0) THEN Sum! = Sum! + A!(i%, j%)
NEXT: NEXT