Срочно написать программу в паскале! Упорядочить массив в интервале от 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 Надеюсь помог