Ввод множества с клавиатуры. Delphi

[HastRB]

Как изменить код, да бы заранее описанные множества вводились с клавиатуры? Заранее благодарю за помощь.

program abc;
{$APPTYPE CONSOLE}
{Даны три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого множества равна 10. Сформировать новое множество Y в соответствии с выбранным вариантом задания. На экран вывести исходные множества, а также полученное множество. Значения элементов исходных множеств ввести с клавиатуры.
Задание:
Y = (X1 + X2) * (X2 – X3).
Из множества Y выделить подмножество нечетных чисел и найти его мощность.}
Uses
  SysUtils, Ruslib in 'Ruslib.pas';
Type
  mnojestvo= set of 1..100;
Var
  i,n,nk:integer;
  X1,X2,X3,Y,Z: mnojestvo;
Begin
  X1:=[84,48,21,1,100,77,13,12,6,5];                     
  X2:=[1,2,3,99,76,91,95,17,18,4];
  X3:=[8,27,26,81,55,43,56,97,91,44];
  writeln ('Множество X1:');
  for i:=1 to 100 do
    if (i in X1) then  write (i, ' ');                    
  writeln;
  writeln;
  writeln ('Множество X2:');
  for i:=1 to 100 do
    if (i in X2) then  write (i, ' ');                   
  writeln;
  writeln;
  writeln ('Множество X3:');
  for i:=1 to 100 do
    if (i in X3) then  write (i, ' ');                   
  writeln;
  writeln;
  writeln ('Множество Y:');
  Y :=(X1+X2)*(X2-X3) ;                                   
  for i:=1 to 100 do
    if (i in Y) then  write (i, ' ');                     
  writeln;
  writeln;
  writeln('Полученное подмножество Z:');
  nk:=0;
  for i:=1 to 100 do
    if (i in Y) and (i mod 2 <>0) then                    
      begin
        write (i, ' ');
        n:=nk+1;                                         
        nk:=nk+1;
      end;
  writeln;
  writeln;
  writeln('Мощность подмножества Z = ', n);               
Readln;
End.

[Serge_Bliznykov]

попробуйте примерно так, например:

 X1:=[];  
 WriteLn('Введите элементы множества X1 (от 0 до 255) - отрицательное число - окончание ввода! ')
 repeat 
    Readln(k);
    if (k>=0) and (k<=255) then Include(X1, k);
 until  k<0;
...
 X2:=[];  
 WriteLn('Введите элементы множества X2 (от 0 до 255) - отрицательное число - окончание ввода! ')
 repeat 
    Readln(k);
    if (k>=0) and (k<=255) then Include(X2, k);
 until  k<0;
...

[Mad_Cat]

дык вводи

s:=[]; //s: set of byte
for i:=1 to n do begin //n кол-во элементов
readln(a); s:=s+[a]; end;// a- элемент

[HastRB]

Сообщение от Mad_Cat

дык вводи

s:=[]; //s: set of byte
for i:=1 to n do begin //n кол-во элементов
readln(a); s:=s+[a]; end;// a- элемент

Благодарю Мэд