program set_esempio;
uses crt;
type
   c=set of char;

var f:c;

begin
    f:=['a','b'];
    if 'b' in f then
      write('ciao');
    readln
end.

c è dichiarata come set di char, perciò può contenere un elenco di valori char: in questo caso, la variabile f di tipo c contiene i valori 'a' e 'b'.
Nella struttura if viene considerato se 'b' si trova nell'elenco dei valori di f. In effetti 'b' è un elemento di f e perciò viene eseguita l'istruzione write.
In genere, per dichiarare i set si usa:

type
   <nome>:set of <tipo>;

Include ed exclude
Per aggiungere un valore ad un set o escluderlo, si usano le procedure include ed exclude. La sintassi è la seguente:

procedure Include(s:set of T;i:T);
procedure Exclude(s:set of T;i:T);

Dove T è un tipo qualunque ed i l'elemento da includere/escludere. Ad esempio:

type
   a:set of integer;
   b:set of char;

var v1:a;
    v2:b;

begin
    clrscr;
    a:=[1,5];;
    b:=['1','5'];
    if not (2 in a) then
      include(a,2);
end.