Cформировать новый массив B из отрицательных элементов одномерного массива А. Ввести результаты с клавиатуры, из тела цикла(операторы DATA READ) и из файла LABRAB8.BAS — QBasic(Бейсик)

CLS
DIM a(1000)
OPEN "LABRAB8.BAS" FOR INPUT AS #1
DO WHILE NOT EOF(1)
k = k + 1
INPUT #1, a(k)
LOOP
CLOSE
FOR i = 1 TO k
IF a(i) < 0 THEN n = n + 1: b(n) = a(i)
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
FOR i = 1 TO n
WRITE #2, b(i)
NEXT
close

CLS
DIM a(1000)
OPEN "LABRAB8.BAS" FOR INPUT AS #1
DO WHILE NOT EOF(1)
    k = k + 1
    INPUT #1, a(k)
LOOP
CLOSE
FOR i = 1 TO k
    IF a(i) < 0 THEN n = n + 1: b(n) = a(i)
NEXT
FOR i = 1 TO n
    PRINT b(i)
NEXT