Угадай-ка

Программа-игрушка. Компьютер загадывает число от 0 до 100. Нужно угадать его за меньшее число попыток. Мои дети поставили рекорд: 4 попытки (тестирование проходило на уроке обдумывания и написания программы). А вы так сможете?

program Ugadaika;
 var x,y, k:integer;
begin
 randomize;
 x:=random (100);
 write ('Число '); readln (y);
 k:=1;
 while x<>y do
  begin
   if x>y
    then writeln ('больше')
    else writeln ('меньше');
    write ('Число '); readln (y);
    k:=k+1;
  end;
 write ('Угадал! Число попыток: ', k)
end.

Задача может иметь продолжение с ограничением числа попыток.