{$l+++}
program test;

   type
      SetType = Set OF 'a'..'z';

   var
      s: settype;

   procedure proc(Var t: settype);

      begin
         t := []+['a']+['z']+['a'..'z']+['a', 'b', 'c', 'd', 'e']+
              ['a', 'b', 'c', 'd', 'e', 'f']+['a', 'b', 'c', 'd', 'e', 'f', 'g']+
              ['a'..'e']+['a'..'f']+['a'..'g'];
         s := [];
         s := ['a'];
         s := ['a'..'z'];
         s := ['a', 'b', 'c', 'd', 'e'];
         s := ['a', 'b', 'c', 'd', 'e', 'f'];
         s := ['a', 'b', 'c', 'd', 'e', 'f', 'g'];
         s := ['a'..'e'];
         s := ['a'..'e'];
         s := ['a'..'f'];
         s := ['a'..'g'];
      end;

  begin
  end.

