Как создать алгоритм по угадыванию числа в диапазоне от 1 до 8?

я такое делал на яве когда делать было нечего...исходник прикрепленпаскальvar comp,player:integer;beginrandomize;comp:=random(9);readln(player);while comp <> player dobeginif player<comp thenwriteln('Мало');if player>comp thenwriteln('Много');readln(player);end;write('Вы угадали')end.