[lmikle]

Программно где-то так:

Код:

var
  R : Integer;
begin
  R := Random(N) + 1; random 1..N
  While AlredyExist(R) Do R := Random(N)+1;

Где функия AlredyExist - проверяет допустимость сгенерированного числа. Писать надо самому.