Sort pseudo-array

//@version=2
study("Sort pseudo-array")
length = 5
a(i) => 
    close[i] + close[i+1]

sort(a, i) => 
    min = -10000
    for j = 0 to i
        min_local = 10000
        for l = 0 to length - 1
            if (a(l) <= min)
                continue
            min_local := min(min_local, max(min, a(l)))
        min := min_local
    min

plot(a(0))
plot(a(1))
plot(a(2))
plot(a(3))
plot(a(4))

plot(sort(a, 0), color=red, linewidth=3)
plot(sort(a, 1), color=orange, linewidth=3)
plot(sort(a, 2), color=green, linewidth=3)
plot(sort(a, 3), color=blue, linewidth=3)
plot(sort(a, 4), color=purple, linewidth=3)