Как определить множество включающее в себя др множества? - Free Pascal

Формулировка задачи:

Перечислительный тип имеет следующее определение: Type =nedelya (Voskr,Pon,vt,st,chet,pt,sb ); Определите множественный тип, включающий в себя множества ,из: А)названия любых дней недели;б)Названия рабочих дней недели. Код для вывода двух перечислений рабочий. А вот,что с ними делать,не пойму.

                    Листинг программы
                
 
                        
                          
                    
Program HELLO;
 
uses crt;
type TWokday = (Monday,Tuesday,Wednesday,Thursday,Friday);
  type Tweekend  =(Saturday,Sunday);
var
    Wokday : set of TWokday;
    i       : TWokday;
    weekend:set of Tweekend;
    j:Tweekend;
 
    begin
    clrscr;//Очищаем экран
    for i := Low(Twokday) to High(Twokday) do
    Writeln('Рабочие дни недели  ',i, ' ');
      Writeln();
       for j := Low(Tweekend) to High(Tweekend) do
    Writeln('Выходные дни недели  ',j, ' ');
     Readln;
end.

Решение задачи: «Как определить множество включающее в себя др множества?»

Листинг программы

//Перечислительный тип имеет следующее определение:
Type  nedelya=(Voskr,Pon,vt,st,chet,pt,sb );
//Определите множественный тип, включающий в себя множества ,из:
//А)названия любых дней недели;
Type mn_vse= set of nedelya;
//б)Названия рабочих дней недели
Type mn_rab= set of Pon..pt;

Объяснение кода листинга программы

Создается перечислечный тип nedelya с возможными значениями: Voskr, Pon, vt, st, chet, pt, sb.
Определяется множественный тип mn_vse, который включает в себя все значения из типа nedelya.
Определяется множественный тип mn_rab, который включает в себя только рабочие дни недели из типа nedelya, то есть значения Pon..pt.