Игра в угадайку

[Telas]

Нужно написать программу, играющую с пользователем в "угадайку" - пользователь загадывает число, компьютер пытается его отгадать. Компьютер называет свои варианты, а пользователь отвечает лишь "больше" либо "меньше". Для организации диалога воспользоваться функцией InputBox.
Сделал таким образом:

var
 n:integer;
 s,b,m,r:string;

begin
m:='<';
b:='>';
r:='=';
repeat
n:=1+random(100);
ShowMessage('Задуманое число  ' +IntToStr(n)+ '?');
s:=InputBox('Укажите задуманое число меньше или больше','Если задуманое число меньше,  ' +IntToStr(n)+ ' ,то введите "<" если больше' +IntToStr(n)+ ' ,  то ">", а если угадал то "="','');
  if s=m then
    MessageDlg('Точно меньше ' +IntToStr(n)+ '?',mtWarning,[mbOk],0);
  if s=b then
    MessageDlg('Хм... значит не  ' +IntToStr(n),mtWarning,[mbOk],0);
  if s=r then
    MessageDlg('Наконец то угадал!',mtInformation,[mbOk],0);
 until s=r
 end;

а нужно чтоб программа делала следующим образом.
Например первое число выдаёт 50, пользователь говорит <, прога делит 50 на 2 и суёт 25, пользователь отвечает >, прога спрашивает 37 ( или 38 ) надеюсь понятно написал. Вот как это реализовать?

[Telas]

Все, разобрался. Сделал вот так.

var
 n:extended;
 s,b,m,r:string;
begin
randomize;
m:='<';
b:='>';
r:='=';
n:=1+random(100);
repeat
ShowMessage('Çàäóìàíîå ÷èñëî ' +FloatToStr(RoundTo(n, 0))+ '?');
s:=InputBox('Óêàæèòå çàäóìàííîå ÷èñëî ìåíüøå èëè áîëüøå','Åñëè çàäóìàííîå ÷èñëî ìåíüøå ' +FloatToStr(RoundTo(n, 0))+ ' , òî ââåäèòå "<" åñëè áîëüøå ' +FloatToStr(RoundTo(n, 0))+ ' , òî ">", à åñëè óãàäàëè, òî "="','');
  if s=m then
    begin
       MessageDlg('Òî÷íî ìåíüøå ' +FloatToStr(RoundTo(n, 0))+ '?',mtWarning,[mbOk],0);
        n:=(n/2);
    end;
  if s=b then
    begin
        MessageDlg('Õì... Çíà÷èò íå ' +FloatToStr(RoundTo(n, 0)),mtWarning,[mbOk],0);
        n:=n/2+n;
    end;
  if s=r then
    MessageDlg('Íàêîíåö-òî óãàäàë!',mtInformation,[mbOk],0);
 until s=r
 end;