Nhập vào 1 xâu .Đưa ra màn hình số lượng ký tự khác nhau của xâu

program xau;

uses crt;

var s: string;

      d,i: byte;

      st: set of char;

Begin

         clrscr;

         write(‘Nhap xau: ‘); readln(s);

         st:=[]; d:=0;

         for i:=1 to length(s) do if s[i] not in st then

         begin

                  inc(d);

                  st:=st+[s[i]];

         end;

         write(‘Co ‘,d,’ ky tu khac nhau cua xau’);

         readln

End.