Pascal felsorolt típusokból készített halmazok kezelése?

Azt nem értem, hogyan tudok egy felsorolt típusból halmazt készíteni.

A beépített típusokat jól tudom használni, pl. az alábbi programon belül:

program project1;

var

h:set of char;

j:set of char;

begin

h:=['a'..'b'];

j:=['b'..'c'];

if 'b' in (h*j) then write(1)

else write(0);

readln;

end.

de ha ugyanezt a logikát követem, akkor nem működik a program felsorolt típusoknál pl.

program project1;

type

napok=(hetfo,kedd,szerda);

h=set of napok;

j=set of napok;

begin

h:=['hetfo'..'kedd'];

j:=['kedd'..'szerda'];

if 'kedd' in (h*j) then write(1)

else write(0);

readln;

end.

az már hibát jelez. Tehát a felsorolt típusok halmazainak feltöltésében, deklarálásában lenne szükségem segítségre.

Előre s köszönöm.