Поиск элемента в одномерном массиве из 12 элементов, который равен заранее заданному некоторому числу.(на языке паскаль)

Const
n=12;
var
a:array [1..n] of integer;
p,i:integer;
begin
for i:=1 to n do
begin
writeln('Введите элемент №',i);
readln(a[i]);
end;
writeln('Введите число для поиска');
readln(p);
for i:=1 to n do
if a[i]=p then writeln('элемент ',p,' находится на позиции №',i);
end.