Одномерный массив А длиной N<=20 заполнить случайными числами из диапазона [–5..30]. Составить программу определения: последнего максимального элемента; определить, на каких позициях находятся эти элементы; сколько элементов массива превосходят по модулю заданное число А? - Pascal(Паскаль)

uses crt;
const max=20;
var a:array[1..max] of integer;
    n,i,k:byte;
    aa,mx:integer;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(36)-5;
  write(a[i],' ');
 end;
writeln;
writeln;
mx:=a[n];
for i:=n downto 1 do
if a[i]>mx then mx:=a[i];
writeln('Последний максимальный=',mx);
writeln('Максимальные элементы имеют индексы:');
for i:=1 to n do
if a[i]=mx then write(i,' ');
writeln;
write('Введите число для поиска aa=');
readln(aa);
k:=0;
for i:=1 to n do
if abs(a[i])>abs(aa) then k:=k+1;
write('Количество чисел по модулю больше ',abs(aa),' =',k);
readln
end.