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

Благодарю)

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