Выписать в новый вектор четные отрицательные элементы вектора с нечетными индексами- QBasic(Бейсик)

CLS
Again: INPUT "Vvdedite kol-vo indeksov : ", n
IF n < 1 GOTO Again
  DIM A(n) AS INTEGER, B(n) AS INTEGER, i AS INTEGER
FOR i = 1 TO n
  PRINT " Komponenta vectora s ndeksom"; i;
  INPUT ": ", A(i)
NEXT: PRINT
  '  Копируем нужные компоненты
FOR i = 1 TO n
  IF ((i AND 1) = 1) AND ((A(i) AND 1) = 0) AND (A(i) < 0) THEN B(i) = A(i)
NEXT: PRINT
  '  Результат
PRINT "Novij vektor:"
FOR i = 1 TO n
  PRINT B(i);
NEXT: PRINT