Pascal abc sorted set

sorted_set.pas

procedure printSet<T>(s: SortedSet<T>);
begin
  foreach e: T in s do
  begin
    Print(e);
    Print(' ');
  end;
  Println();
end;
 
begin
  var N: integer;
  Readln(N);
  var a := new SortedSet<integer>();
  
  for var i := 0 to (N-1) do
  begin
    a.add(Random(100));
  end;
  
  for var i:= 1 to N do
  begin
    printSet(a);
    
    var m := a.min;
    Print('Min: ');
    Println(m);
    
    a.Remove(m);
  end;
  
end.