[Alegun]

Сортировка работает, в чём вопрос? Если как перевернуть выводимый результат, то самое простое при заполнении в мемо

Код:

...
 for i := High(v) downto Low(v) do
memo2.lines.add (inttostr(v[i]));
...