Найти вектор, составленный из сумм отрицательных элементов столбцов матрицы А

CLS
ma = 6: mb = 7
DIM a(1 TO ma, 1 TO ma) AS INTEGER, b(1 TO mb, 1 TO mb) AS INTEGER
DIM Va(1 TO ma) AS INTEGER, Vb(1 TO mb) AS INTEGER
RANDOMIZE (TIMER)
Sa = 0
PRINT "Матрица А:": PRINT
FOR i = 1 TO ma
 FOR j = 1 TO ma
     a(i, j) = SGN(RND - .35) * INT(RND + .87) * RND * 100
     PRINT USING "######"; a(i, j);
     IF i > j THEN Sa = Sa + a(i, j)
 NEXT j: PRINT
NEXT i: PRINT
Sb = 0
PRINT "Матрица B:": PRINT
FOR i = 1 TO mb
 FOR j = 1 TO mb
     b(i, j) = SGN(RND - .35) * INT(RND + .87) * RND * 100
     PRINT USING "######"; b(i, j);
     IF i > j THEN Sb = Sb + b(i, j)
 NEXT j: PRINT
NEXT i: PRINT
PRINT " Сумма матрицы А = "; Sa; "   Сумма матрицы B = "; Sb
IF Sa > Sb THEN
   PRINT " Максимум - это сумма матрицы А  "
   ELSEIF Sa < Sb THEN
          PRINT " Максимум - это сумма матрицы B  "
                  ELSE
          PRINT " Максимума нет - суммы матриц А и B равны  "
END IF
FOR j = 1 TO ma
 Sa = 0
 FOR i = 1 TO ma
     IF a(i, j) < 0 THEN Sa = Sa + a(i, j)
 NEXT i:
 Va(j) = Sa
NEXT j:
FOR i = 1 TO mb
 maxb = b(i, 1)
 FOR j = 1 TO mb
     IF b(i, j) > maxb THEN maxb = b(i, j)
 NEXT j:
 Vb(i) = maxb
NEXT i
PRINT : PRINT " <Enter> - продолжить, <Esc> - закончить...";
DO
Ch$ = INKEY$
LOOP UNTIL (Ch$ = CHR$(13)) OR (Ch$ = CHR$(27))
SELECT CASE Ch$
  CASE CHR$(13)
       CLS
       PRINT "Вектор матрицы А:": PRINT
       FOR i = 1 TO ma
           PRINT USING "#######"; Va(i);
       NEXT i: PRINT : PRINT
       PRINT "Вектор матрицы B:": PRINT
       FOR i = 1 TO mb
           PRINT USING "#######"; Vb(i)
       NEXT i
  CASE CHR$(27)
       END
END SELECT
END