Процедура Randomize

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

Объявление:

Procedure Randomize;

Режим: 

Пример:

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

См. также:  Random