Помогите решить задачу плиз по информатике
Составьте программу "Угадай" . Программа задумывает случайное число в диапозоне от 0 до 99 после каждой попытки играющего угадать число программа выводит на экран одно из сообщений Больше , Меньше или Угадано . На отгадывание числа дается 10 попыток программа завершается при выполнении одного из условий : дан правильный ответ либо все попытки исчерпаны

varflag,i,x,y:integer;beginx:=Random(0,99);flag:=0;for i:=1 to 10 do beginwrite('Введите ваше число ');readln(y);if (x = y) then beginflag:=1;writeln('Дан правильный ответ!');breakendelseif (x < y) thenwriteln('Попробуйте взять число поменьше')elsewriteln('Попробуйте взять число побольше'); end;if flag = 0 then writeln('Все попытки исчерпаны');end.