Урок №10.2 Задание 2

Урок №10.2 Задание 2

В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.

program Pr10_2_2;

var a, b, i:integer;
begin
  writeln('Введите число!');
  readln(a);

  writeln('Угадайте число от 1 до 10 с трех попыток');
  for i:=1 to 3 do
  begin
    writeln('Попытка №', i, ' выше число:' );
    readln(b);
    if (b = a) then
    begin
       writeln('Победа! Угадали с ',i,'(й) попытки!');
       break
    end else
       writeln('Не угадали!');
  end;

  writeln('Игра окончена!');
  readln();
end.                  

Консоль:

Введите число!
100
Угадайте число от 1 до 10 с трех попыток
Попытка №1 выше число:
1
Не угадали!
Попытка №2 выше число:
2
Не угадали!
Попытка №3 выше число:
100
Победа! Угадали с 3(й) попытки!
Игра окончена!