Replacing duplicates in a randomly generated array

[Zholl]

Originally Posted by Ether

Add the following header:

{$APPTYPE CONSOLE}
USES Windows;

... and change "word" to "dword" (4 places), and you've got a 32-bit Delphi console app which will select 100 non-duplicate random values from a pool of one million in less than 0.004 seconds on an 8-year-old desktop PC.

I'm afraid I don't understand what you're getting at. I can follow your code, but I don't recognize the language, nor do I see the purpose of your header