не работает

[Гектор]

как заставить работать такую конструкцию?   r:word;

 r:= random(9);
case r of
1: ----;
2: ----;
  - - - ;
9: ----;
end;
если просто присвоить r:= тогда работает а  с random() нет:(

[PooH]

 перед вызовом random, Randomize стоит?

[Oldy]

Используйте Randomize procedure
т.е.:

Код:

Var
  r : word;
Begin
  Randomize;
  r := Random(9);
  Case r of
    1:;
    2:;
  End;
End;

[Гектор]

с Randomize; работает спасибо!