вводится число А и 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.