локальные максимумы

[santafer]

Дан массив размера NN. Обнулить все его локальные максимумы (то есть числа, большие своих соседей);
выводит одни нули почему ?
Помогите пожалуйста

var
a:array[1..7] of integer;
i,n:integer;
 
begin
    stringGrid1.rows[2].clear;
    stringGrid1.rows[1].clear;
    randomize;
    n:=StrToInt(Edit1.Text);
    for i:=1 to n do
       begin
         StringGrid1.Cells[i,1]:=IntToStr(random(100));
       end;
         for i:=1 to N do
       if (a[i-1]<a[i]) and (a[i]>a[i+1])
           then a[i]:=0;
       if a[1] > a[2]
           then a[1]:=0;
       if a[N] > a[N-1]
           then a[N]:=0;
           for i:=1 to N do
         StringGrid1.Cells[i,2]:=intToStr(a[i]);
         end;

[Аватар]

Их сначала нужно найти все, и только после этого обнулить.

for i:=1 to N do
       if (a[i-1]<a[i]) and (a[i]>a[i+1])
           then a[i]:=0;

Здесь индекс вылезет за пределы массива