Don't have Telegram yet? Try it now!
https://www.weblibrary.biz/delphi-array-sorting2/
Сортировка методом обмена