Дан массив А(6). Найти сумму и количество положительных элементов, расположенных между минимальным и максимальным элементами.

DIM a(6)
FOR i = 1 TO 6
    INPUT a(i)
NEXT i
min = a(1)
max = a(1)
imin = 1
imax = 1
FOR i = 2 TO 6
    IF a(i) lt; min THEN
        min = a(i)
        imin = i
    END IF
    IF a(i) gt; max THEN
        max = a(i)
        imax = i
    END IF
NEXT i
IF imin lt; imax THEN
    FOR i = imin + 1 TO imax - 1
        IF a(i) gt; 0 THEN
            sum = sum + a(i)
            k = k + 1
        END IF
    NEXT i
    PRINT "summa="; sum, "k="; k
ELSE PRINT "Решения нет"
END IF