Исключить два наименьших по абсолютной величине элемента массива

CLS
INPUT n
DIM a(1 TO n), b(1 TO n)
FOR i = 1 TO n
    PRINT "a("; i; ")=";
    INPUT "", a(i)
NEXT i
max = a(1)
FOR i = 2 TO n
    IF a(i) > max THEN
        max = ABS(a(i)): imax = i
    END IF
NEXT i
IF max < a(1) THEN
    s = s + a(1)
    k = k + 1
ELSEIF max > a(1) THEN
    p = p * a(1)
    k = k + 1
END IF
PRINT USING "###.###|###.###|"; a(i), b(i), c(i)
PRINT "imax="; i, "s="; s, "p="; p
END

10 DIM a(20)
20 DIM a(10)
a(15)=2

CLS
INPUT "Ведите N="; n
DIM R(n), new(n)
FOR i = 1 TO n
R(i) = INT(RND * 100)
NEXT i
min1 = R(1)
min2 = R(2)
FOR i = 1 TO n
IF ABS(R(i)) < min1 THEN min1 = ABS(R(i)): imin1 = i
IF i <> imin1 AND ABS(R(i)) < min2 THEN min2 = ABS(R(i)): imin2 = i
NEXT i
l = 1
kol = 0
FOR i = 1 TO n
IF i <> imin1 AND i <> imin2 THEN new(l) = R(i): l = l + 1: kol = kol + 1
NEXT i
PRINT "Исходный массив:"
FOR i = 1 TO n
PRINT R(i);
NEXT i
PRINT
PRINT "число элементов:"; n
PRINT "Два наименьших элемента:"; min1, min2
PRINT "Новый массив:"
FOR i = 1 TO kol
PRINT new(i);
NEXT i