Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности

Program m2;
       
 
       Uses Crt;
 
       Type
         nabor = set of char;
 
       Var
         str { данная строка }
         : string [128];
 
         M, { множество из цифр и знаков операций }
         Mzp { вспомогательное множество }
         : nabor;
 
         d, { длинна строки символов }
         x, { абсцисса курсора }
         y, { ардината курсора }
         i { номер литеры строки }
         : integer;
 
         Begin
           ClrScr;
 
           Write ('Введите текст: ');
           ReadLn (str);
 
           d := length (str);
           Mzp := ['+', '-', '*', '/', '0'..'9'];
           M := [];
           for i := 1 to d do
             if str [i] in Mzp
               then
                 M := M + [str[i]];
 
           Write ('Множество: [');
           for i := 1 to 255 do
             if chr(i) in M
               then
                 Write ('''', chr(i), ''', ');
 
           x := WhereX;
           y := WhereY;
           GotoXY (x-2, y);
           WriteLn (']');
 
           ReadLn;
         End.