Найти количество локальных максимумов в последовательности

var
  a:array of integer;
  i,c:integer;
begin
  write('Введите последовательность:');  
  SetLength(a,1);
  repeat
    SetLength(a,length(a)+1);
    read(a[length(a)-1]);
  until a[length(a)-1]=0;
  for i:=2 to length(a)-3 do begin
    if (a[i]>a[i-1]) and (a[i]>a[i+1]) then inc(c);
  end;  
  writeln('Количество локальных максимумов:',c);
end.

var
  a:array[1..3] of integer;
  i,c:integer;
begin
  write('Введите последовательность:');  
  i:=0;c:=0;
  repeat
    inc(i);
    read(a[i]);
    if a[i]=0 then break;
    if i=3 then begin 
      if (a[2]>a[1]) and (a[2]>a[3]) then inc(c);
      for i:=2 to 3 do a[i-1]:=a[i];
      i:=2;
    end;
  until false;
  writeln('Количество локальных максимумов:',c);
end.

uses system.Linq;
var
  a:array of integer;
begin
  write('Введите последовательность:');  
  SetLength(a,1);
  repeat
    SetLength(a,length(a)+1);
    read(a[length(a)-1]);
  until a[length(a)-1]=0;
  write('Количество локальных максимумов:',Enumerable.Range(2,Length(a)-2).Where((i:integer)->(i<length(a)-2) and (a[i]>a[i-1]) and (a[i]>a[i+1])).count);
end.