Написать программу в паскале! упорядочить массив в интервале от i1 до i2 по убыванию

Sub test()
'массив и диапазон для примера
m = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
i1 = 2 'с 3-го злемента (0,1,2)
i2 = 7 'по восьмой
'собственно, сам алгоритм
For x = i1 To i2 - 1
For y = x + 1 To i2
If m(x) < m(y) Then tmp = m(x): m(x) = m(y): m(y) = tmp
Next y, x
MsgBox Join(m, ";") 'это просто проверка
End Sub
Надеюсь