1:

tagnr: Set(0,1,9,10,11,12,13,14,15,16,17,18,19,20,22) of integer;					

1:
2:
3:

type
  TSomeInts = 1..250;
  TIntSet = set of TSomeInts;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  tagnr: TIntSet;

begin
...
tagnr:=[0,1,9..20,22]            
...
end;					

1:
2:

var
  aIntSet: set of (0..22) = [3,1,20,7];					

1:
2:
3:
4:
5:

type
  TIntSet = set of (0..22); 
..
var
  aIntSet : TIntSet = [3,1,20,7];