var
  a : set of Char;
begin
  a := ['a', 'v', 's'];
end.