Mail

В этот день много лет назад...
26 ноября. В 1769 году (255 лет назад) - В России учреждается Георгиевский крест.

Turbo Pascal Documentation

Процедура Randomize

     Функция: Инициализирует встроенный генератор  случайных
чисел случайным значением.
     Описание: Randomize
     Примечания: Случайное значение получается от системного
таймера.

           Замечание: Число, получаемое в результате  работы
      генератора  случайных  чисел,  хранится в предописаной
      переменной с именем RandSeed. Путем присваивания  этой
      переменной  конкретного значения можно получать каждый
      раз заданную последовательность случайных  чисел.  Это
      особено полезно в прикладных задачах, где используется
      кодирование данных.
           Прочее: См. также процедуру Random.