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

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