ПАСКАЛЬ.Ввести одномерный массив A, вывести его. Переставить в обратном порядке все элементы между максимальным и предпоследним отрицательным элементом. Помогите, не могу найти предпоследний элемент в массиве

Предпоследний отрицательный....
....
ppp:=0; r:=0
for i:=n downto 1 do
begin
if (a[i]if (a[i]end;
....
(тут : ррр=1 -датчик, что после него есть отр. число
к=1-датчик, что мы уже взяли предпоследний и его номер(индекс) сохранили в переменной nom_pp)