Игра Угадай число - Turbo Pascal

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

Здравствуйте!Я только начинающий поэтому прошу сильно не бросаться камнями в мою сторону.Прошу вашего дельного совета то бишь помощи.Смысл проблемы- есть задача и есть решение( возможно слегка корявое) нужно - подсказать как оптимизировать код (если возможно) или как можно решить по другому.Буду рад любым советам!! Условие задачи: "С использованием датчика случайных чисел в программе загадывается в диапазоне 0..100. на отгадывание числа дается 10 попыток. играющий вводит каждый раз очередное число. после каждого ответа программа выводит на экран одно из сообщений - больше, меньше или угадано, в зависимости от числа, введенного пользователем. цикл завершается при выполнении одного из двух условий: либо число попыток достигло 10, либо дан привильный ответ." Мое решение:

program chislo;
uses crt;
var a,b,c : integer;
 begin
  clrscr;
  randomize;
  a:=Random (101);
  c:=0;
  writeln ('Kompjuter zagadal 4islo ot 1 do 100. ugadaite ego! ');
  repeat
   c:=c+1;
   writeln ('Vvedite 4islo');
   readln (b);
    if a=b then break;
    if a>b
    then writeln ('Zagadannoe 4islo bolshe')
    else writeln ('Zagadannoe 4islo menshe');
  until c=10;
        if a=b then writeln ('Victory')
                else writeln  ('You lose');
  readln;
  end.

Решение задачи: «Игра Угадай число»

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

program chislo;
uses crt;
var a,b,c : integer;
key:char;
 begin
 repeat
  clrscr;
  randomize;
  a:=Random (101);
  c:=0;
  writeln ('Kompjuter zagadal 4islo ot 1 do 100. ugadaite ego! ');
  repeat
   c:=c+1;
   writeln ('Vvedite 4islo');
   readln (b);
    if a=b then break;
    if a>b
    then writeln ('Zagadannoe 4islo bolshe')
    else writeln ('Zagadannoe 4islo menshe');
  until c=10;
        if a=b then writeln ('Victory')
                else writeln  ('You lose');
  writeln('нажмите ESC, чтобы выйти или любую другую клавишу чтобы выйти!');
  key:=readkey
  until key=#27;
  end.

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

В программе используется стандартная библиотека crt, которая содержит функции для работы с клавиатурой и экраном.
Переменные a, b и c объявлены как целочисленные.
Переменная key объявлена как символ (char).
В цикле repeat-until выполняется игра Угадай число.
В каждой итерации цикла переменные a и b считываются с клавиатуры.
Если a равно b, то цикл прерывается командой break.
Если a больше b, то выводится сообщение Зagadannoe 4islo bolshe (загаданное число больше).
Если a меньше b, то выводится сообщение Zagadannoe 4islo menshe (загаданное число меньше).
Цикл повторяется до тех пор, пока c не станет равным 10.
После окончания игры выводится сообщение нажмите ESC, чтобы выйти или любую другую клавишу чтобы выйти!
Считывается символ с клавиатуры с помощью функции readkey.
Цикл repeat-until продолжается до тех пор, пока пользователь не нажмет символ ESC.