Определите, сколько различных литер входит в заданный текст - Turbo Pascal

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

Определите, сколько различных литер входит в заданный текст, содержащий не более 100 литер и оканчивающийся точкой (в сам текст точка не входит)

Решение задачи: «Определите, сколько различных литер входит в заданный текст»

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

var s:string;
     m:set of char;
     i,k:byte;
begin
writeln('Введите строку длиной не более 100 символов, в конце точка');
readln(s);
k:=0;
m:=[];
for i:=1 to length(s)-1 do//точку не читаем
if not(s[i] in m) then//если нет символа в множестве
 begin
  k:=k+1;//считаем
  m:=m+[s[i]];//добавляем в множество
 end;
write('Количество различных литер=',k);
readln
end.

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

Ввод строки с помощью функции readln() в переменную s.
Инициализация счётчика k=0 и множества m=[] в начале цикла.
Цикл for перебирает все символы строки s, начиная с 1 и заканчивая длинной строки минус 1, чтобы не читать точку.
Условие if проверяет, есть ли текущий символ в множестве m.
Если символ не найден в множестве, то он добавляется в множество m и увеличивается счётчик k.
В конце программы выводится количество различных литер с помощью функции write().
Завершение программы с помощью функции readln().