Для каждой строки текста вывести в алфавитном порядке все буквы, встречающиеся в нем не меньше двух раз - Free Pascal

Дан текст( массив строк). Для каждой строки вывести в алфавитном порядке все буквы текста, что встречаються в нем не меньше двух раз.

Листинг программы

if k=1 then // заменить 1 на 2

Объяснение кода листинга программы

Сначала определяется входной текст, который необходимо обработать.
Затем создается пустой список (массив), в который будут добавляться все буквы, встречающиеся в тексте.
Далее, для каждой буквы в тексте выполняется проверка: если она уже есть в списке, то происходит переход к следующей букве, иначе она добавляется в список.
После обработки всего текста, список букв сортируется в алфавитном порядке.
Затем, для каждой буквы в отсортированном списке выполняется проверка: если она встречается в тексте не меньше двух раз, то она выводится на экран.