Поиск элемента в одномерном массиве из 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.