Даны несколько чисел (их количество — в первой строке файла, сами числа — во второй) найти их сумму и записать её в файл- QBasic(Бейсик)

в текстовый файл input.txt заносятся две строки: первая строка: 2 (количество чисел)
вторая строка 3 2 (сами числа)

OPEN "input.txt" FOR INPUT AS #1
INPUT #1, n
DIM a(n)
FOR i = 1 TO n
    INPUT #1, a(i)
NEXT
CLOSE
FOR i = 1 TO n
    s = s + a(i)
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
PRINT #2, s
CLOSE