Создать массив, и выполнить в нём операции с элементами: удаления, добавления, перестановки, поиска и сортировки

CLS
DIM x (1 TO 50), y (1 TO 50), a (1 TO 50), d (1 TO 50), s, t, j, i, m, k, n AS INTEGER
n = 9
FOR i = 1 TO n
x(i) = CINT(9*RND)
PRINT x(i);
NEXT i
PRINT
PRINT "Udalenie:"

CLS 
DIM x(1 TO 50), y(1 TO 50), k, s, T, p, v AS INTEGER 
n = 9 
FOR i = 1 TO n 
    x(i) = CINT(9 * RND) 
NEXT i 
FOR i = 1 TO n 
    PRINT x(i); 
NEXT i 
PRINT 
PRINT "udalenie" 
PRINT "zadat nomer udalyaemogo T=" 
INPUT T 
FOR i = T TO n - 1 
    x(i) = x(i + 1) 
NEXT i 
FOR i = 1 TO n 
    PRINT x(i); 
NEXT i 
INPUT "dobavit k", k 
FOR i = n - 1 TO k STEP -1 
    x(i + 1) = x(i) 
NEXT i 
INPUT "dobavit chislo", c 
x(i) = c 
FOR i = 1 TO n 
    PRINT x(i); 
NEXT i 
FOR i = 1 TO n / 2 
    FOR j = 1 * 2 TO i + 1 STEP -1 
        s = x(j) 
        x(j) = x(j - 1) 
        x(j - 1) = s 
    NEXT j 
NEXT i 
FOR i = 1 TO n 
    PRINT x(i) 
NEXT i 
PRINT 
PRINT "element. ravnyi srednemu arifmeti4eskomu" 
s = 0 
FOR i = 1 TO n 
    s = s + x(i) 
NEXT i 
f! = s / n 
p = 0 
FOR i = 1 TO n 
    IF x(i) = s THEN 
        p = i 
        PRINT p 
    END IF 
NEXT i 
IF p = 0 THEN 
    PRINT "sovpadenii net" 
END IF 
PRINT 
PRINT "sortirovka" 
FOR i = 1 TO n 
    FOR j = 1 TO n 
        IF x(i) > x(j) THEN 
            T = x(i): x(i) = x(j): x(j) = T 
        END IF 
    NEXT j 
NEXT i 
FOR i = 1 TO n 
    PRINT x(i); 
NEXT i 
END

PRINT CHR$(13); "--- proverka ---"
FOR i = 1 TO n 
    PRINT x(i); 
NEXT i
WHILE INKEY$ = "": WEND