Разработать программу для тестирования — PureBasic(Бейсик)

dim n as Integer, m as Integer, s as Integer, ans as Integer
 
CLS
 
OPEN "test.txt" FOR INPUT AS #1
rem открытие файла теста
 
INPUT #1, n
rem n - колво вопросов
INPUT #1, m
rem m - колво ответов в вопросе
 
DIM a(1 TO m+2, 1 TO n) as String
FOR i=1 TO m+2 
FOR j=1 TO n
INPUT #1, a(i,j)
NEXT J
NEXT i
rem заполнения массива тестом
 
CLOSE #1
rem закрытие файла теста
 
ans=0
for j = 1 TO n
100:
print "Вопрос ", j,": ", a(1,j)
print "Варианты ответов:"
for i=2 to m+1
print i-1, " ", a(i,j)
NEXT i
input "Введите ваш вариант",s
if s<=0 and s>m+1 then
print "ты чо тут самый умный? О_о"
goto 100
end if
if a(m+2,j)=Str$(s) then
ans=ans+1
end if
NEXT J
rem CAM TECT
 
print "количество правильных ответов ", ans
end