Задача на while , Паскаль

[Miha956]

Задачу надо сделать с помощью while
Вводим чистила с клавиатуры пока их не станет 10 или не встретиться буква b

[VIK_aka_TOR]

var
  i : integer;
  x : string;
begin
i := 0;
while (i < 10)  and (x <> 'b') do // покуда i меньше 10 и не ввели 'b'
  begin
    readln(x); //считываем что ввели
    if x <> 'b' then // если не 'b'
      i := i + 1; // inc(i);  то +1 к счетчику чисел
  end;
end.

try .. except в паскале в необходимом виде видимо нету...

вариант более приближенный к условию

var
  i : integer;
  x : string;
begin
i := 0;
while (i < 10)  and (x <> 'b') do // покуда i меньше 10 и не ввели 'b'
  begin
    readln(x); //считываем что ввели
    try
      strtoint(x);
    except
      continue;
    end;
      i := i + 1; // inc(i);  то +1 к счетчику чисел
  end;
end.