Составить программу игры "угадай число", используя оператор с постусловием - Turbo Pascal

Формулировка задачи:

помогите найти ошибку! задача: составить программу игры "угадай число", используя оператор с постусловием. В этой программе сообщение "Угадал" отображается при повторном запуске, а хотелось бы, чтобы оно выводилось сразу при угадывании числа. Это возможно или я зря парюсь?

Program Ugaday;
Var p,z: integer;
Begin
  randomize;
  z:=random(10);
  Writeln('угадай число!');
  read(p);
   repeat
     if p>z then Writeln('меньше')
     else Writeln('больше');
     read(p);
   until p=z;
 Writeln('угадал!');
 End.

Решение задачи: «Составить программу игры "угадай число", используя оператор с постусловием»

Листинг программы

readkey;

Объяснение кода листинга программы

Чтение значения переменной readkey
Выполнение операции readkey
Переменная readkey содержит значение, которое было введено пользователем
Вывод значения переменной readkey
Ожидание ввода пользователя
Повторение операции readkey