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

var x, y, a:integer;

c:boolean;

begin

readln (x) ; {считываем}

a:=1;

repeat

writeln (a,' попытка выбор компьютера пал на - ') ;

y:=random (x) + 1; {задаем промежуток рандомом}

write (y) ;

if x=y {сравниваем} then c:=true; {выходим из цикла в случае успеха}

until c; {если с=true тогда выход из цикла, иначе крутимся дальше}

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

end.

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