Дано слово. определить сколько различных букв в нём. программа паскаль

Программа (строчные и заглавные буквы считаются различными):
var s:string; i,k:integer; m:set of char; c:char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
for i:=1 to length(s) do m:=m+[s[i]];
k:=0;
for c:=chr(32) to chr(255) do
 if c in m then k:=k+1;
writeln('Количество различных букв = ',k);
end.

Пример:
Введите слово:
электрификация
Количество различных букв = 11

10 различных букв...