Дан одномерный массив числовых значений,насчитывающий N элементов.Исключить все отрицательные элементы — QBasic(Бейсик)

INPUT (n)
DIM a, 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 k
    PRINT b(i); " ";
NEXT