Задача 2 Урок 10.2

Задача 2 Урок 10.2:

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

var a, b, i:integer;
begin
  writeln('vvedite chislo');
  readln(a);
  writeln('Ygadayte chiclo on 1 do 10 c 3-x popitok');
  for i:=1 to 3 do
  begin
    writeln('Popitka #', i, ' visje chislo:' );
    readln(b);
    if (b = a) then
    begin
       writeln('Pobeda! C ',i,' popitki');
       break
    end
    else
       writeln('He ygadali!');
  end;
  writeln('Game over!');
  readln();
end.