Cколько различных символов в заданной строке. - PascalABC.NET

Формулировка задачи:

Здравствуйте! Помогите, пожалуйста, с задачей Подсчитать сколько различных символов в заданной строке.

Решение задачи: «Cколько различных символов в заданной строке.»

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

program slova;
var
a : string;
b : byte;
begin
writeln ('введите знаковую строку: ');
Readln (a);
b:= length(a);
if b = 0 then writeln ('ты че? Офигел шоль? Строка пустая!')
else writeln ('Длина строки', b, 'символов');
end.

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

Список действий в коде:

Запросить у пользователя ввод строки.
Присвоить введенную строку переменной a.
Вычислить длину строки и присвоить результат переменной b.
Если длина строки равна 0, то вывести на экран сообщение об ошибке.
Вывести на экран сообщение с длиной строки.