Дана матрица из 3 строк и 2 столбцов. Найти количество отрицательных элементов в матрице- QBasic(Бейсик)

CLS
DIM a(1 TO 3, 1 TO 2) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO 3
 FOR j = 1 TO 2
   a(i, j) = RND * 45 - 22
   PRINT a(i, j);
   IF a(i, j) < 0 THEN s = s + 1
 NEXT j
NEXT i
PRINT "s="; s
END