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

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.