Процедура Randomize

Инициализирует встроенный генератор случайных чисел.

Объявление:

Procedure Randomize;

Режим:

Windows,  Protected,  Real

Пример:

Uses Crt;
 
  Begin
   Randomize;
   Repeat
    { Выводим текст случайными цветами }
    TextAttr:=Random(256);
    Write('!');
   Until KeyPressed;
  End.