Составьте пожалуйсто в Pascal ABC сложную

Вот пожалуйста, моя игра. Угадай число. program k2game; uses crt; var i,a,n: integer; begin textbackground (14); clrscr; gotoxy (33,2); textcolor (4); writeln ('Игра «Угадай число! " '); delay (400); textcolor (5); gotoxy (23,4); writeln ('1. Компьютер загадывает число от 0 до 9.'); delay (840); textcolor (5); gotoxy (23,5); writeln ('2. Ваша задача — угадать это число! '); delay (840); textcolor (5); gotoxy (23,6); writeln ('3. Не забывайте, что у вас всего две попытки! '); delay (640); textcolor (5); gotoxy (23,7); writeln ('4. Если же вы ошиблись, то компьютер даст вам подсказку.'); randomize; a: =random (10); n: =0; textcolor (0); repeat gotoxy (23,9); writeln ('Пожалуйста введите число.'); gotoxy (23,10); readln (i); if (i <> a) then begin n: =n+1; gotoxy (23,11); if (i>a) then writeln ('Подсказка: Загаданное число меньше.') else writeln ('Подсказка: Загаданное число больше.') end; until (i=a) or (n=2); gotoxy (23,13); textcolor (2); if (i=a) then writeln ('Поздравляю! Вы выйграли! ') Else writeln ('К сожалению, но вы проиграли! '); end.