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

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
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);
   NEXT i: PRINT

SUB insert2arr (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

DIM a(14)
FOR i=1 TO 13
INPUT"vvedite element massiva",a(i)
NEXT
FOR i=1 TO 13
 FOR j=2 TO 13
  IF a(j)<a(j-1) THEN SWAP a(j),a(j-1)
NEXT
NEXT
PRINT"otsortirovannyj massiv"
FOR i=1 TO 13
PRINT a(i);
NEXT
PRINT
INPUT"vvedite chislo M",m
a(14)=m
i=13
DO WHILE a(i)>m
SWAP a(i),a(i+1)
i=i-1
LOOP
PRINT"novyj massiv"
FOR i=1 TO 14
PRINT a(i);
NEXT

SUB insert2arr (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