Вывести сколько различных букв встречается в слове- Pascal(Паскаль)

Например: «МОЛОКО» результат : 4

var
st :string[10];
i,kol :integer;
ch :set of char;
begin
writeln('Введите слово');
readln(st);
for i:=1 to length(st) do
if not (st[i] in ch) then
begin
include(ch,st[i]);
inc(kol);
end;
writeln('В слове ',kol,' различных букв');
end.