Написать программу для нахождения суммы всех отрицательных элементов массива (5,5) — QBasic(Бейсик)

В блокноте создаем текстовый файл:
3 -8 5 12 -4
-5 3 11 -10 1
7 -15 1 -16 2
22 17 9 -6 -14
21 -23 12 24 -18
сохраняем под именем input.txt

DIM a(5, 5)
OPEN "input.txt" FOR INPUT AS #1
FOR i = 1 TO 5
    FOR j = 1 TO 5
        INPUT #1, a(i, j)
    NEXT
NEXT
CLOSE
PRINT "massiv"
FOR i = 1 TO 5
    FOR j = 1 TO 5
        PRINT a(i, j); " ";
    NEXT
    PRINT
NEXT
FOR i = 1 TO 5
    FOR j = 1 TO 5
        IF a(i, j) < 0 THEN s = s + a(i, j)
    NEXT
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
PRINT #2, s
CLOSE
PRINT USING "####.##"; s