В двумерном массиве найти суммы значений элементов в каждом столбце и сформировать из них одномерный массив- QBasic(Бейсик)

INPUT"vvedite kolichestvo strok M ",m
INPUT"vvedite kolichestvo stolbcov N ",n
DIM a(m,n),b(n)
FOR i=1 TO m
FOR j=1 TO n
INPUT "vvedite element ",a(i,j)
NEXT
NEXT
PRINT "matrica "
FOR i=1 TO m
FOR j=1 TO n
PRINT a(i,j);
NEXT
PRINT
NEXT
for j=1 to n
s=0
for i=1 to m
s= s+a(i,j)
next
b(j)=s
next
print"massiv summ"
for i=1 to n
print b(i);
next