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

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.