[M.A.D.M.A.N.]

Код:

Prelude Data.List> nubBy (\ x y -> y >= x) [1,3,2,4,5,9,4,2,1,5,3,90,50,100,39,0,72]

Результат:

Код:

[1,3,4,5,9,90,100]

Гуглим ф-ю nubBy, вникаем как она работает и реализуем на дельфи.