Одномерный массив., поиск максимального элемента Опции

[Allise1]

кто-нибудь может помочь?очень нужно!
Дан массив размера N.
Найти максимальный из его элементов, не являющихся ни локальным максимумом, ни локальным минимумом(локальный минимум-это элемент, который меньше любого из своих соседей).Если таких элементов в массиве нет, вывести об этом сообщение.
упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений.
для отладки программы числа последовательности сформировать с помощью генератора случайных чисел.

[Krjuger]

Помочь можем, но именно помочь, а не сделать за вас! Покажите свои идеи и наработки,тогда, если что неверно, поправим и доведем до ума.

[Гость]

Помочь можем, но именно помочь, а не сделать за вас! Покажите свои идеи и наработки,тогда, если что неверно, поправим и доведем до ума.

var
a: array [1..100] of integer;
i,max,N: integer;

begin
randomize;
write('N (<=100)= ');
readln(N);
for i:= 1 to n do
a[i]:=-25+random(101);
writeln('Initial array: ');
for i:=1 to N do write(a[i]:4);
writeln;
max:=-80;
for i:=2 to N-1 do
if (a[i]>max) and
not((a[i]>a[i+1]) and (a[i]>a[i-1])) and
not((a[i]<a[i+1]) and (a[i]<a[i-1])) then max:=a[i];
writeln('Result: ');
if max=-80 then writeln('No such elements') else writeln('Max= ',max);
readln
end.
но эта только первая часть задания, как вторую сделать вообще понятия не имею(
нужна сортировка массива, чтоб сравнить соседние элементы и при выполнении условия поменять их местами