Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей

const n=10;
var a:array[1..n] of real;
    i,k:byte;
 
begin
  randomize; k:=0;
  for i:=1 to n do
    a[i]:=-10+random(40);
  for i:=1 to n do
    if (a[i]>a[i+1]) and (a[i]>a[i-1]) then inc(k);
  writeln(k);
end.

var x,r,l:real;
    i,k,n:byte;
begin
  writeln('vvedite kolli4estvo 4isel');
  readln(n);
  writeln('vvedite pervoe 4islo');
  readln(l);
  writeln('vvedite sledushee 4islo');
  readln(x);
    if x>l then inc(k);
    for i:=3 to n do
      begin
       l:=x;
       x:=r;
       writeln('vvedite sledushee shislo');
       readln(r);
         if (x>l) and (x>r) then inc(k);
      end;
  writeln('koolishestvo 4isel bolshih svoih sosedei ',k);
  readln;
end.

var n,i,k:integer;
    a,b,c:real;
begin
repeat
write('Количество чисел n>2 n=');
readln(n);
until n>2;
write('Введите первое число a=');
readln(a);
writeln('Введите второе число b=');
readln(b);
writeln('Введите остальные числа:');
for i:=3 to n do
 begin
  readln(c);
  if(b>a)and(b>c) then k:=k+1;
  a:=b;
  b:=c;
 end;
write('Количество чисел, больших соседей=',k);
readln
end.