проверь же свою интуицию наконец!!!

в паскале)

всем привет

есть задача, кто подправит сможет узнать свою интуицию:

// Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.

{Описание переменных:
a – число, "загаданное" компьютером;
b – очередное число, вводимое пользователем.}

program sluchaynoe_chislo;
var
  a,b,c:integer;
  i,n:integer;
begin
  a:=random(10);
  writeln(a);
  writeln('сколько попыток Вам надо, чтобы отгадать число? ');
  read(n);
    if n<=0 then begin
      writeln('не хотите, не отгадывайте!');

      exit;
    end;
   writeln('введите число (от 1 до 10), которое загадал компьютер: ');
    read(b);

    for i:=1 to n-1 do begin

      if a<>b then begin
          while b<>a do begin
            a:=random(10);
            writeln(a);

            writeln('неправильно! попробуйте еще раз (загаданное число изменилось): ');
            read(b);
            if a=b then writeln('1вы угадали число!!!'); break;
          end;
        end

     else writeln('2вы угадали число!!!');
   end;


   if a<>b then
   writeln ('вы не отгадали число; количество попыток исчерпано!');

end.

только вот незадача, при вводе 1 попытки и угадывании числа не выводит "2вы угадали число".