Из массива A(N) сформировать новый массив из значений элементов больших 7 и имеющих индексы кратные 4- QBasic(Бейсик)

  CLS
  INPUT "Vedite N:", N
DIM A(N)
  '  Заполним массив
  FOR i = 1 TO N
    PRINT "Vvedite element №" + STR$(i) + ": ";
    INPUT "", A(i)
  NEXT
   '  Смотрим сколько элементов
  FOR i = 4 TO N STEP 4
    IF A(i) > 7 THEN K = K + 1
  NEXT
  DIM B(K)
   '  Копируем в новый массив
  FOR i = 4 TO N STEP 4
    IF A(i) > 7 THEN F = F + 1: B(F) = A(i)
  NEXT
   '  Вывод обеих массивов
  PRINT "A :";
  FOR i = 1 TO N
    PRINT A(i);
  NEXT: PRINT
  PRINT "B :";
  FOR i = 1 TO K
    PRINT B(i);
  NEXT