Дан массив из 10 элементов. Найти номера всех положительных элементов и образовать из них массив — Basic(Бейсик)

DIM newArr(10)
count=1
FOR i=1 TO 10
  IF a(i)>0 THEN
    newArr(count)=a(i)
    count = count +1
  END IF
NEXT i
REDIM preserve newArr(1 TO count-1)