Дан одномерный массив А. Найти число элементов массива,которые больше своих «соседей», т.е. предшествующего и последующего элементов — Pascal(Паскаль)

program _;
const
n=4; //количество элементов массива
var
a:array[1..100] of integer;
i:integer;
begin
writeln('введите элементы массива');
for i:=1 to n do
begin
read(a[i]);
end;
writeln('Новый массив:');
for i:=2 to n do
if  (a[i-1]<a[i]) and (a[i]>a[i+1]) then write(a[i],'   ');
end.