Написать программу тестирования

DEFSTR S-T
DEFINT I-O
OPTION BASE 1
DIM n(5)
DIM o(20)
DIM s(5, 5)
CLS
RANDOMIZE TIMER
OPEN "TEST.txt" FOR INPUT AS #1
OPEN "TEST2.txt" FOR INPUT AS #2
 
FOR i = 1 TO 20
   LINE INPUT #2, so
   o(i) = VAL(so)
NEXT i
CLOSE #2
 
m = 20
 
   n(1) = m * RND + 1
100
   n(2) = m * RND + 1
   IF n(2) = n(1) THEN 100
200
   n(3) = m * RND + 1
   IF n(3) = n(1) OR n(3) = n(2) THEN 200
300
   n(4) = m * RND + 1
   IF n(4) = n(1) OR n(4) = n(2) OR n(4) = n(3) THEN 300
400
   n(5) = m * RND + 1
   IF n(5) = n(1) OR n(5) = n(2) OR n(5) = n(3) OR n(5) = n(4) THEN 400
 
FOR i = 1 TO 4
   FOR j = 1 TO 4
      IF n(j) > n(j + 1) THEN SWAP n(j), n(j + 1)
   NEXT j
NEXT i
 
j = 1
FOR i = 1 TO 20
   LINE INPUT #1, t1
   LINE INPUT #1, t2
   LINE INPUT #1, t3
   LINE INPUT #1, t4
   LINE INPUT #1, t5
   IF i = n(j) THEN
      s(j, 1) = t1
      s(j, 2) = t2
      s(j, 3) = t3
      s(j, 4) = t4
      s(j, 5) = t5
      j = j + 1
      IF j = 6 THEN EXIT FOR
   END IF
NEXT i
CLOSE #1
 
l = 0
FOR i = 1 TO 5
   PRINT
   PRINT "VOPROS ? "; s(i, 1)
   PRINT "1. "; s(i, 2)
   PRINT "2. "; s(i, 3)
   PRINT "3. "; s(i, 4)
   PRINT "4. "; s(i, 5)
   INPUT "Vvedite N OTVETA"; k
   IF k = o(n(i)) THEN l = l + 1
NEXT i
 
SELECT CASE l
   CASE 1: PRINT "OCENKA = "; l
   CASE 2: PRINT "OCENKA = "; l
   CASE 3: PRINT "OCENKA = "; l
   CASE 4: PRINT "OCENKA = "; l
   CASE 5: PRINT "OCENKA = "; l
END SELECT
CLOSE #1
END

INPUT "Vvedite N OTVETA"; k