вопрос по процедуре randomize Опции

[1147]

Например нам нужно каждый раз, при нажатии кнопки, получать разные числа в диапазоне 0..99:

begin
Randomize;
begin
int := Random(100);
end;

Но бывает что randomize 2 (или больше) раза подряд выдает одно и тоже число. Можно ли както этого избежать? Исключить повторение двух чисел подряд?

[volvo]

Запоминай предыдущее значение, и сравнивай со вновь сгенерированным:

var prev: integer = 100; // глобально
// ...
begin
  repeat
    i := random(100);
  until i <> prev;
  prev := i;
end;