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

k:=0;
for i:=2 to n-1 do
if(a[i]>a[i-1])and(a[i]>a[i+1]) then inc(k);

program r;
type mas=array[1..100] of integer;
var a:mas;
   s,k,n:integer;
procedure vvod(var a:mas;b:integer);
var i:integer;
begin
randomize;
for i:=1 to b do
a[i]:=random (100)+100;
end;

program r;
type mas=array[1..100] of integer;
var a:mas;
   s,k,n:integer;
procedure vvod(var a:mas;b:integer);
var i:integer;
begin
randomize;
for i:=1 to b do
a[i]:=random (100)+100;
end;
 
procedure vivod(a:mas;b:integer);
var i:integer;
begin
for i:=1 to b do
write(a[i],' ');
end;

for i:= 2 to n - 1 do
if (a[i] > a[i-1]) and (a[i] > a[i+1])
then k:= k + 1;

program r;
type mas=array[1..100] of integer;
procedure vvod(var a:mas;b:integer);
var i:integer;
begin
randomize;
for i:=1 to b do
 begin
  a[i]:=100+random(100);
  write(a[i]:4);
 end;
writeln;
end;
procedure kol(a:mas;b:integer;var k:integer);
var i:integer;
begin
k:=0;
for i:=2 to b-1 do
if(a[i]>a[i-1])and(a[i]>a[i+1]) then inc(k);
write('Количество больших своих соседей=',k);
end;
var a:mas;
    n,k:integer;
begin
repeat
write('Размер массива от 3 до 100 n=');
readln(n);
until n in [3..100];
vvod(a,n);
kol(a,n,k);
end.