Deine (Furtbichler) Lösung braucht bei mir 275 MS, allerdings erfüllt Dein Vorschlag leider die Aufgabe nicht, es bleiben 1 Mio Einträge in der Liste.
Nachtrag: Gerade habe ich gesehen, dass Du in Deinem Beitrag etwas früher hier noch eine weitere Zeile am Ende hattest:
SetLength(sl,j);
Da streikt der Compiler mit dem Hinweis "Inkompatible Typen".
Hey, vielleicht sollten wir einen Preis verleihen an den, der unter 100 MS kommt?