игра должна продолжаться до того момента, пока игрок не удгадает?
весь код я писать не буду, но объясню ключевые моменты(a-загаданное число, b - то что мы ищем):
1. ключевым будет цикл while
Begin
a:=random(1000);
while t=false do
begin
if a=b then t=true
else{здесь начинается все самое интересное}
end.
2. дальше.. через IF пишутся подбадривания и подсказки
пример if a>b then writeln('вы не угадали. загаданное число больше. попробуйте еще'); напиши примерный код.. а потом уже будм исправлять вместе.
и желательно скажи когда в след раз будешь онлайн.
