Игра "Угадай число" (2) Опции

[Katolisa]

Написать программу, которая "задумывает" число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток. Ниже представлен рекомендуемый вид экрана во время работы программы:

Игра "Угадай число".
Компьютер "задумал" число от 1 до 10.
Угадайте его за 5 попыток.
Введите число и нажмите <Enter>
-> 5
Нет.
-> 3
Вы выиграли! Поздравляю!

[Katolisa]

program ygadaj4islo;

uses crt;
var x, y, n:integer;
const
p=5;

BEGIN
clrscr;
randomize;
x:=random(9)+1;
writeln('Игра "Угадай число".');
writeln('Компьютер задумал число от 1 до 10 ');
writeln('Угадайте его за ', p , ' попыток.');
writeln('Введите число и нажмите <Enter>');
repeat;
n:=n+1;
write('->');
readln(y);
until (n=p) or (x=y); if x=y
then writeln ('Вы выиграли! Поздравляю! ')
else writeln ('Нет');
readln;
END.

Получилось, смысл в том что комп даёт сразу игроку 5 попыток, а мне нужно, чтобы сразу после неправильного он писал "Нет"........