Вычислить суммы положительных и произведения отрицательных элементов каждого столбца - QBasic

CLS
n = 5
m = 5
DIM a(1 TO n, 1 TO m), sum(1 TO m), pro(1 TO m)
DATA 8,-11,12,-34,29,18,-41,-42,82,35,36,4,-2,5,-18,48,-36,30,41,-28,-32,-23,3,1,2
 
FOR i = 1 TO n
FOR j = 1 TO m
READ a(i, j)
PRINT USING "####"; a(i, j);
NEXT j
PRINT
NEXT i
FOR j = 1 TO m
s = 0
p = 1
FOR i = 1 TO n
IF a(i, j) > 0 THEN s = s + a(i, j)
IF a(i, j) < 0 THEN p = p * a(i, j)
 
NEXT i
sum(j) = s
pro(j) = p
NEXT j
PRINT "Summa i proizvedenie po stolbcam"
FOR j = 1 TO m
PRINT sum(j), pro(j)
NEXT j