Угадай число Опции

[Nataly]

Нужна ваша помощь! Программа «Угадай число» делает один проход и дальше не работает. Пытаюсь зациклить, но выводится ошибка. Как правильно оформить это все в цикл?

procedure TForm1.FormActivate(Sender: TObject);
begin
MEdit.SetFocus;
Label1.Caption:='Сыграем в игру?'
end;


procedure TForm1.BbRunClick(Sender: TObject);
begin
a:=InputBox('Диапазон чисел’,'Введите количество чисел','');
n:=StrToInt(a);
n:=random(n+1);
Label1.Caption:='Я запомнил число! Сумеешь угадать?';
MEdit.SetFocus;
BbRun.Visible:=False;
BbResult.Visible:=True;
end;

procedure TForm1.BbResultClick(Sender: TObject);
begin
if MEdit.Text='' then exit;
i:=StrToInt(Trim(MEdit.Text));
if i>n then
        begin
            Label1.Caption:='Введенное число больше моего! Попробуй еще раз!';
            MEdit.Clear;
            MEdit.SetFocus;
     end;
else
 if i<n then
  begin
            Label1.Caption:='Введенное число меньше моего! Попробуй еще раз!';
            MEdit.Clear;
            MEdit.SetFocus;
end
 else
 begin
      Label1.Caption:='Поздравляю!!!! Ты угадал!!!';
      b:=InputBox('Сообщение',' Повторить?','');
      if InputBox.Text:='äà' then
      begin
      bbResult.Visible:=False;
      bbRun.Visible:=True;
      end
else
Form1.Close;
     end;
end;

procedure TForm1.BbCloseClick(Sender: TObject);
begin
Form1.Close;
end;
end.

[volvo]

У тебя просто не генерируется случайное число (точнее, все время N = 0), поэтому программа тебе постоянно выдает "Введенное число больше моего! Попробуй еще раз!", правда?

Попробуй добавить Randomize:

a:=InputBox('Диапазон чисел','Введите количество чисел','');
randomize;
n:=random(StrToInt(a)+1);

, тогда N будет отличаться от нуля...