Дан вектор,из него нужно построить другой вектор,в котором нет нулевых элементов из первого- QBasic(Бейсик)

n = 10
DIM a(n), b(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
FOR i = 1 TO n
    IF a(i) <> 0 THEN k = k + 1: b(k) = a(i)
NEXT
FOR i = 1 TO n
    PRINT " "; b(i)
NEXT