Код:
Function Rand(LowBorder, UpBorder: Integer): Integer;
Begin
Rand := LowBorder + Random(UpBorder - LowBorder + 1);
End;
Var
X: Integer;
begin
Randomize;
X := Rand(-100, 100);
end.
Вроде так можно делать
зы: а вообще надо у алекстим уточнить, я не помню как в фастскрипт рандомные числа генерируется по правильному.