Procedure Randomize ;
Randomize initializes the random number generator of Free Pascal, by giving a value to Randseed, calculated with the system clock.
None.
Random
For an example, see Random.