Pascal ABC.NET

Вводятся символы. Найти количество повторений каждого введенного множества символов. Конец ввода точка. Вывести это множество символов без повторений и количество таких множеств.
(Для вывода количества множеств нужен использовать массивы)
Пример:
(Ввод: 1 2 3 1 2 3 1 2 3 1 .
Вывод: 1 2 3(множество) 3(количество))
Сделать до 17:00(мск)