Угадай число - Pascal ABC (13332)

begin
  var cr: integer;
  var h:= 50;
  var pr_op: char;
  var fch:= true;
  var fr:= true;
  Writeln('Загадай число, а я отгадаю. Как будешь готов, нажми любую кнопку');
  System.Console.ReadKey(true);
  Writeln('Если ваше число меньше моего, нажмите "-", иначе "+"');
  var ch: char;
  var n: integer;
  while true do
    begin
      Writeln(cr);
      ch:= System.Console.ReadKey(false).KeyChar;
      Write('   ');
      if (ch = '0') or (h = 0)
        then
          break;
      if (ch <> pr_op) and (fr = false)
        then
          fch:= false;
      if ch = '-'
        then
          begin
            if pr_op = '-'
              then
                if fch = false
                  then
                  else
                    h *= 2
              else
                h := Trunc(h / 2);
            cr -= h;
            pr_op:= '-';
          end
        else
          begin
            if pr_op = '+'
              then
                if fch = false
                  then
                  else
                    h *= 2
              else
                h := Trunc(h / 2);
            cr+= h;
            pr_op:= '+';
          end;
      n+= 1;
      fr:= false;
    end;
  Writeln('Я выиграл за ', n, ' попыток');
end.