Хелп плизз!!! Задача по множествам.

[Neket]

Задача:Из 2ух множеств составить новое путем обьеденения.Определить сколько и каких больше чисел в множестве: четных илши нечетных.
вывести мно-вол на экран.
Главная пробелема состоит в том что я незнаю как обьявить их (учебника нет конспекта по этой теме нет ) Хелп плизз завтра сдавать

[Юдифь]

uses crt;
const n=10;
type number=0..20;
var
      x,y,z:set of number;
      m1,m2:integer;
      i:integer;
      xc:number;
  begin
    clrscr;
    randomize;
    x:=[];
    y:=[];
    for i:=1 to n do begin
        x:=x+[random(20)];
        y:=y+[random(20)];
    end;
    z:=x+y;
    m1:=0;
    m2:=0;
    write('Объединенное множество z=[');
    for xc:=0 to 2*n do
       if xc in z then begin
          if xc mod 2=0 then
             m1:=m1+1
             else
             m2:=m2+1;
          write(xc,' ')
       end;
    writeln(']');
    writeln('чётных чисел ',m1);
    writeln('­нечётных чисел ',m2);
   readln;
end.