Ну, например, можно так SL := TStringList.Create; SL.Sorted := True; SL. Duplicates := dupIgnore; а затем в цикле добавляете в список строк слова из массива и выводите список на экран.
в цикле берешь первое слово из массива, далее проверяешь если ли еще в массиве это слово, если нет то заносишь в новый массив, если есть то переходишь к другому слову.