Нужна помощь: Составить программу по которой компьютер угадает число введеное с клавиатуры (с помощью repeat), с пояснениями (игра похожа на игру угадай число, но угадывает компьютер, а мы задумываем)

var x,y,a:integer;c:boolean;beginreadln(x); {считываем}

a:=1;repeat

writeln(a,' попытка выбор компьютера пал на - ');y:=random(x)+1; {задаем промежуток рандомом}

write(y);if x=y {сравниваем} then c:=true; {выходим из цикла в случае успеха}until c; {если с=true тогда выход из цикла, иначе крутимся дальше}

writeln('Компьютер сделал ',a,' попыток.');end.

Более доработанная и понятная, если возникают какие-то вопросы - пиши в личку.