Дана матрица из трех строк и двух столбцов. Найти количество столбцов содержащих хотя бы 1 положительный элемент- Basic(Бейсик)

DIM a(3,2)
FOR i=1 TO 3
FOR j=1 TO 2
INPUT a(i,j)
NEXT
NEXT
FOR j=1 TO 2
f=0 
 FOR i=1 TO 3
  IF  a(i,j)>0 THEN f=1
 NEXT
s=s+f
NEXT
PRINT s