Проверить находиться ли в массиве данное число. (Паскаль)

Var a, b, i, n:integer;

s:array [1 ... 10000] of integer;

begin

read (n) ; for i:=1 to n do

read (s[i]) ;

read (b) ;

for i:=1 to n do

if s[i]=b then inc (a) ;

if a0 then write ('Встречается') else write ('Не встречается') ;

end.

P. S. Надеюсь на благодарность и лучший ответ.

Uses crt;

const N=10;

var a:array [1 ... N] of integer;

x, k, z:integer;

begin

k:=0;

for x:=1 to N do

begin

write ('a[', x,']:') ; readln (a[x]) ;

end;

write ('Введите число:') ; readln (k) ;

for x:=1 to N do

if a[x]=k then inc (z) ;

if z>0 then writeln ('Число ', k,' встречается в массиве ', z,' раз (-а).')

else writeln ('Число ', k,' не встречается в массиве') ;

end.