Расположить числа по возрастанию

DECLARE SUB insert2arr (A( ) AS DOUBLE, x AS DOUBLE, n AS LONG
DIM I AS LONG, n AS LONG, A(1 TO 8) AS DOUBLE, x AS DOUBLE,
                                                                              m AS DOUBLE
DATA 5, 7, 10, 0, 2, 12, 21
PRINT “ Array: “
   FOR i= 1 TO 7
     READ x
     PRINT x;
CALL insert2arr(A( ), x, n)
    NEXT i
PRINT “ Отсортированный массив:”
   FOR i= 1 TO n
     PRINT A(i);
   NEXT i
        PRINT
INPUT “ Ввести число М: “ , m
CALL insert2arr(A( ), m, n)
PRINT “ Отсортированный массив с числом М:”
   FOR i = 1 TO n
     PRINT A(i);

SUB insert3arr (A( ) AS DOUBLE, x, AS DOUBLE, n AS LONG)  
   DIM i AS LONG
     n = n + 1
   FOR i = n TO 2 STEP -1
IF A(i – 1) > x THEN A(i) = A(i – 1)
   ELSE EXIT FOR
   NEXT i
  A(i) = x
END SUB

   ELSE  без  IF
          <   OK  >    <  Справка  >

CLS
DIM mass(999) AS DOUBLE
DIM i AS LONG
DIM j AS LONG
DIM c AS DOUBLE
DIM num AS LONG
INPUT "KOL-VO: ", num
FOR i = 1 TO num
        INPUT "*", mass(i)
NEXT i
FOR i = 1 TO num
        FOR j = 1 TO num
                IF (mass(i) < mass(j)) THEN
                        c = mass(j)
                        mass(j) = mass(i)
                        mass(i) = c
                END IF
        NEXT j
NEXT i
FOR i = 1 TO num
        PRINT mass(i); " ";
NEXT i

CLS
DIM mass(999) AS DOUBLE
DIM i AS LONG
DIM j AS LONG
DIM c AS DOUBLE
DIM num AS LONG
INPUT "KOL-VO: ", num
FOR i = 1 TO num
        INPUT "*", mass(i)
NEXT i
FOR i = 1 TO num
        FOR j = 1 TO num
                IF (mass(i) < mass(j)) THEN
                        c = mass(j)
                        mass(j) = mass(i)
                        mass(i) = c
                END IF
        NEXT j
NEXT i
FOR i = 1 TO num
        PRINT mass(i); " ";
NEXT i
INPUT "NEW: ", mass(num + 1)
num = num + 1
FOR i = 1 TO num
        FOR j = 1 TO num
                IF (mass(i) < mass(j)) THEN
                        c = mass(j)
                        mass(j) = mass(i)
                        mass(i) = c
                END IF
        NEXT j
NEXT i
FOR i = 1 TO num
        PRINT mass(i); " ";
NEXT i

FOR i = 1 TO num
        FOR j = 1 TO i - 1

CLS
DATA 5, 7, 10, 0, 2,. 12, 21
DIM a(8)
PRINT
   FOR i = 1 TO 7
     READ a(i)
       PRINT a(i);
   NEXT i
PRINT
   FOR i = 1 TO 7
   FOR j = 1 TO 6
IF a(j) > a(j + 1) THEN SWAP a(j), a(j + 1)
NEXT
NEXT
PRINT "otsortirovannyj massiv"
FOR i = 1 TO 7
PRINT a(i);
NEXT
PRINT
INPUT m
a(8) = m
FOR i = 8 TO 2 STEP -1
IF a(i) < a(i - 1) THEN SWAP a(i), a(i - 1)
NEXT
PRINT "itogovyj massiv"
FOR i = 1 TO 8
     PRINT a(i);
   NEXT i