Переделать задачу под множества - поиск различных букв текста - 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.

Решение задачи: «Переделать задачу под множества - поиск различных букв текста»

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

                            const
  Letters = ['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'я','Ё','ё'];
var
  s: String;
  m: set of Char;
  c: Char;
  i, n: Integer;
begin
  Write('Введите строку: '); ReadLn(s); n:=0;
  for i:=1 to Length(s) do
    if s[i] in Letters then Include(m,s[i]);
  for c:='A' to #255 do if c in m then Inc(n);
  WriteLn(n,' разных букв');
end.
                        