Дано натуральное число b и а1,……,аn которая оканчивается 0. Определить каким по счету в последовательности а1,…..аn идет член, равен b. Если такого нету вывести 0 — Pascal(Паскаль)

program pr1;

var
  n, i, pos: byte;
  x, b, pr: integer;

begin
  writeln('Введите число b');
  readln(b);
  i := 0;
  pr := 0;
  repeat
    inc(i);
    writeln('Введите ', i, ' элемент последовательности');
    readln(x);
    if x = b then
    begin
      pr := 1;
      pos := i;
    end
    until x = 0;
    if pr = 1 then
      writeln('Posiziya- ', pos)
    else
      writeln('0');
    readln;

end.