Как считать n-ый элемент множества?

type 
  T = set of integer;
  
function getByIndex(s : T; index : integer) : integer;
begin
  var str := s.ToString;
  result := StrToInt(str.Substring(1, str.Length - 2).Split(',,'.ToCharArray())[Pred(index)]);
end;
 
var s : T;
begin
  s := [29,56,98,104,185,203,247];
  for var i : integer := 1 to 7 do writeln(i, ' -> ', getByIndex(s, i));
end.

type
  SiSet = set of Smallint;
 
var
  a, b, c, d : SiSet;
  i, j : Smallint;
 
Begin
Write('Множество A[-1023..1023] (ноль - конец ввода): '); j := Random(8, 96); 
Repeat i := Random(-1023, 1023); a += [i]; Dec(j); Until j = 0; a -= [0]; WriteLn(a); 
//Repeat Read(i); If i > 0 then a += [i]; Until i = 0; WriteLn(a); 
 
Write('Множество B[-1023..1023] (ноль - конец ввода): '); j := Random(8, 96); 
Repeat i := Random(-1023, 1023); b += [i]; Dec(j); Until j = 0; b -= [0]; WriteLn(b); 
//Repeat Read(i); If i > 0 then b += [i]; Until i = 0; WriteLn(b); 
 
ForEach i in a do begin ForEach j in b do begin 
  If (i mod j = 0) and (i div j > 0) then begin c += [i]; d += [j]; {Break;} end; end; end; 
 
WriteLn('Элементы A кратные одному из элементов B: ', c); WriteLn('Делители: ', d); 
a := []; b := []; c := []; d := []; 
 
End.