Найти сумму трёх максимальных из этих чисел

CLS
INPUT “ “, n
RANDOMIZE TIMER
DIM a)n)
   FOR i= 1 TO n
     a(i) = INT(RND * 1000)
       PRINT A(i);
   NEXT: PRINT
       max1 = -1E+38
       max2 = -1E+38
       max3 = -1E+38
   FOR I = 1 TO n
     IF a(i) >= max1 THEN
       max3 = max2:
       max2 = max1:
       max1 = ai)
   ELSEIF a(i) >= max2 THEN
       max3 = max2:
       max2 = a(i)
   ELSEIF a(i) >= max3 THEN  max3 = a(i)
      END IF
   NEXT
PRINT max1 + max2 + max3

10
370  413  313  961  660  574  988  712  334  22
1949

CLS
CONST n = 10,  k = 3
DIM a(n)
DATA 12, 16, 21, 25, 30, 34, 36, 42, 10, 15
   FOR i = 1 TO n
     READ a(i)
       PRINT a(i);
    NEXT: PRINT
DO
        t = n
        I = t: t = 1
   FOR j = 1 TO I – 1
    IF a(j + 1) > a(j) THEN SWAP a(j + 1), a(j)
       t = j
    END IF
   NEXT
LOOP UNTIL t = 1
    FOR I = 1 TO k
       s = s + a(i)
    NEXT
PRINT “ Сумма 3-х максимальных чисел: “; s

CLS
CONST n = 1000, k = 100
DIM a(1 TO n) AS LONG, b(1 TO k)
DIM i AS LONG, j AS LONG, s AS LONG, m AS LONG, x AS LONG
RANDOMIZE 123
   FOR i= 1 TO n
    a(i) = INT(RND * 1000 + 1)
    NEXT i
‘test4
b(1) = a(1)
   FOR I = 2 TO n
      x = a(i)
     IF I > k THEN
       IF b(k) < x THEN m = k; GOSUB

     Ожидается:  метка или номер строки
                <  OK  >     <   Справка  >