не охота для каждого случая писать вместо k:=random(2) , менять k:=1 и так везде.
для таких случаев (одновременная замена фиксированного значения сразу во многих местах) существует константы.
Код:
unit global;
const maxrnd =1;
один раз объявили (
там где будет "видно" всех заинтересованным)
Код:
unit ....
uses global;
r:=random(maxrnd);
много раз используем. а пожелаем изменить...
Код:
const maxrnd =1; 2; 10;
...и менять придется РОВНО в одном месте.