Сократите код игры "Угадай число" - Pascal ABC

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

Недавно начал изучать паскаль. Написал небольшую программу. Помогите сократить код, если это возможно.

uses crt;
var a,b:integer;
procedure x1;
begin
clrscr;
writeln('Молодец.');
sleep(1000);
end;
procedure x3;
begin
clrscr;
writeln('Осталась 1 попытка.');
sleep(3000);
clrscr;
writeln('Введи число.');
readln(b);
sleep(1000);
if b=a then x1 else 
writeln('Неудача.');
sleep(1000)
end;
procedure x2;
begin
clrscr;
writeln('Осталось 2 попытки.');
sleep(3000);
clrscr;
writeln('Введи число.');
readln(b);
sleep(1000);
if b=a then x1 else x3
end;
begin
a:=random(10);
Textbackground(1);
clrscr;
textcolor(14);
writeln('Я загадываю число от 0 до 9, а ты угадываешь.');
sleep(3000);
clrscr;
writeln('У тебя 3 попытки.');
sleep(3000);
clrscr;
writeln('Введи число.');
readln(b);
sleep(1000);
if b=a then x1 else x2
end.

Решение задачи: «Сократите код игры "Угадай число"»

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

var i, a, b: integer;
begin
  randomize;
  a := random(10);
  writeln('Я загадал цифру, попробуйте её угадать.');
  for i := 3 downto 1 do
    begin
      write('Осталось попыток: ', i, '. Введите цифру: ');
      readln(b);
      if a = b then break
    end;
  if a = b
    then write('Угадал!')
    else write('Я загадал ', a, '. Не угадал!');
  readln
end.

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

var i, a, b: integer; - объявление переменных i, a, b типа integer
randomize; - инициализация генератора случайных чисел
a := random(10); - генерация случайного числа от 0 до 9
writeln('Я загадал цифру, попробуйте её угадать.'); - вывод сообщения о загаданном числе
for i := 3 downto 1 do - цикл, начинающийся с i=3 и выполняющийся до i=1
begin
write('Осталось попыток: ', i, '. Введите цифру: '); - вывод сообщения для игрока о количестве попыток и просьба ввести цифру
readln(b); - чтение введенного игроком числа
if a = b then break; - проверка, совпадает ли введенное число с загаданным
end;
if a = b
then write('Угадал!')
else write('Я загадал ', a, '. Не угадал!');
readln
end.