Создать множество с рандомными числами из определённого диапазона

X1 := [];
for var n := 1 to 10 do
  X1 += [Random(1, 100)];

Y_ := [];
for var n := 1 to 50 do
  if (n*2-1) in Y then
    Y_ += [n*2-1];

Y_ := [];
for var n := 1 to 50 do
  Y_ += [n*2-1];
Y_ := Y * Y_;

function SetCount(S : Set of Integer) : Integer;
begin
  Result := 0;
  foreach var N in S do
    Result += 1;
end;
 
function RND(Count, MinVal, MaxVal : Integer) : Set of Integer;
begin
  Result := [];
  while SetCount(Result) < Count do
    Result += [Random(MinVal, MaxVal)];
end;
 
var
  Y, X1, X2, X3 : Set of Integer;
begin
  X1 := RND(3, 1, 10);  WriteLn('X1 = ', X1);
  X2 := RND(3, 1, 10);  WriteLn('X2 = ', X2);
  X3 := RND(3, 1, 10);  WriteLn('X3 = ', X3);
  Y  := X1 + X2 - X3;
  WriteLn('Y = X1 + X2 - X3 = ', Y);
end.