Вводится число а и 7 целых чисел, определить, каким по счету в последовательности будет число а , если его нет, то вывести ноль решите паскаля

Program pr;
uses crt;
Var a,b,x1,i:integer;
Begin
x1:=0;
Writeln('vvedite chislo');
readln(a);
Writeln('vvedite posledovatelnost');
For i:=1 to 7 do
Begin
readln(b);
if a=b then x1:=i;
end;
Writeln('¹=',x1);
readln;
end.

Если номер последовательность выводить нужно каждый раз когда встречается то число тогда так

Program pr;
uses crt;
Var a,b,x1,i:integer;
Begin
x1:=0;
Writeln('vvedite chislo');
readln(a);
Writeln('vvedite posledovatelnost');
For i:=1 to 7 do
Begin
readln(b);
if a=b then Writeln('¹=',i);
end;
readln;
end.