Создать программу сколько различных символов находится в заданной строке — Pascal(Паскаль)

var
k,i,j:integer;
l:boolean;
s:string;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
 begin
   l:=false;
   for j:=1 to i-1 do
    if s[i]=s[j] then l:=true;
    if l=false then inc(k);
 end;
writeln('Itog: ',k);
end.

var
  s: string;
  m: set of char;
  k: byte;
  i: integer;

begin
  readln(s);
  m := [];
  k := 0;
  for i := 1 to length(s) do
    if not(s[i] in m) then
    begin
      k := k + 1;
      m := m + [s[i]];
    end;
  write(k);

end.