Не получается вывести множество

program test1;
 
Var
 i: set of 1..100;
begin
  i:=[1,2,3];
  WriteLn(i);
end.

  i:=[1,2,3];
  for a:=1 to 100 do
  if a in i then write(a,' ');

program test1;
 
Var
 X1: set of 1..100;
 X2: set of 1..100;
 X3: set of 1..100;
 Y: set of 1..100;
 N1,N2,N3,a,x:integer;
begin
  write ('Введите количество элементов множества X1: '); //Первый X1
  readln(N1);
  for a:=1 to N1 do begin
  write ('X1[',a,']: ');
  readln(x);
  if x in X1 then begin
     writeln ('Элемент ',x,' уже есть введите другой');
     a:=a-1;
  end;
  include(X1,x);
  end;
  // X2
  write ('Введите количество элементов множества X2: '); //Первый X1
  readln(N1);
  for a:=1 to N1 do begin
  write ('X2[',a,']: ');
  readln(x);
  if x in X2 then begin
     writeln ('Элемент ',x,' уже есть введите другой');
     a:=a-1;
  end;
  include(X2,x);
  end;
  // X3
  write ('Введите количество элементов множества X2: '); //Первый X1
  readln(N1);
  for a:=1 to N1 do begin
  write ('X3[',a,']: ');
  readln(x);
  if x in X3 then begin
     writeln ('Элемент ',x,' уже есть введите другой');
     a:=a-1;
  end;
  include(X3,x);
  end;
 
  Y:=(X1+X2)-(X2+X3);
  write ('Ответ: Множество Y = ');
  for a:=1 to 100 do //Вывод множества
  if a in Y then write(a,' ');
 
end.