Найти разность множества А (введенного пользователем) с объединением множеств B,D,E. Универсум – натуральные числа от 1 до 200 — Pascal(Паскаль)

program mnojecvo;
const 
   n=1;
var 
   a,b,c,d,e: set of 1..200; 
    j,x,y:  byte;
begin 
  a:=[]; 
  b:=[3,5,8]; 
  d:=[1,3,6]; 
  e:=[1,3,8];
  for j:=1 to 5 do
    begin
    readln(x);
    a:=a+[x]
    end;
  c:=a-b-d-e;
     for x:=1 to 200 do
         if(x in c)  then writeln(x);
  readln;
end.