Дан массив размера N . найти номер его последнего локального максимума

Const
 n = 10;
Var
 a:array [1..n] of integer;
 i,k:integer;
 res:boolean;
Begin
 Randomize;
 For i:=1 to n do
  a[i]:=random(51)-10;
 res:=false;
 For i:=1 to n do
  write(a[i],' ');
 Writeln;
 If a[n] > a[n-1] then Begin
                        k:=n;
                        res:=true;
                       End;
 If res = false then
  For i:=n-1 downto 2 do
   Begin
    If (a[i] > a[i-1]) and (a[i] > a[i+1]) then Begin
                                                 k:=i;
                                                 res:=true;
                                                 break
                                                End;
   End;
 If res = false then
  If a[1] > a[2] then Begin
                         k:=1;
                         res:=true;
                        End;
 If res = true then writeln('Номер: ',k)
               else writeln('Локальных максимумов нет');
End.