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

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

Программа (строчные и заглавные буквы считаются различными):var s:string; i,k:integer; m:set of char; c:char;beginwriteln('Введите слово:');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