Помогите написать программу на PascalABCNET

Определите, сколько различных букв латинского алфавита встречается в строке. Регистр не учитывайте ('A' и 'a' — это одна и та же буква).

ВХОДНЫЕ ДАННЫЕ

Вводится строка, содержащая буквы латинского алфавита, пробелы, знаки препинания. Буквы могут быть как заглавные, так и строчные.

ВЫХОДНЫЕ ДАННЫЕ

Выведите одно число — количество различных букв в этой строке.