Пример. Поиск с барьером

program Poisk2a;
 var A:array[1..101] of integer;
 N,X,i:integer;

begin
 read(N); {N<=100}
 for i:=1 to N do read(A[i]);
 read(X);
 A[N+1]:=X; {установка барьера дополнительным элементом}
 i:=1; {i:=0;}
 while A[i]<>X do i:=i+1;
 {repeat i:=i+1; until A[i]=X;}
 if i<=N then write('первое вхождение числа ',X,' в массив A на ',i,'    месте')
 else write('не нашли');
end.

---