Помогите пожалуйста переделать задачу под множества

Слова в тексте разделены пробелами. Сколько разных букв встречается в тексте?
Код Pascal

var m : set of char;
s : string; i, k : byte;
begin
write('Введите строку: ');
readln(s);
m := [ ' ' ];
k := 0;
i := 1;
while i <= length(s) do begin
if not (s[i] in m) then begin m:=m+[ s[i] ]; k:=k+1 end;
i:=i+1
end;
writeln('разных букв: ',k)
end.