Pascal. подскажите где ошибка,необходимо предпоследний положительный элемент заменить на 0

условия какие? Заменить ПРЕДПОСЛЕДНИЙ ПОЛОЖИТЕЛЬНЫЙ. А у тебя меняет ПРЕДПОСЛЕДНИЙ ЕСЛИ ОН ПОЛОЖИТЕЛЬНЫЙ, что не одно и то же.
тебе нужно сделать два счетчика, первый будет считать элементы массива ВНИЗ (от большего к меньшему) , а второй - положительные числа. В начале инициализируешь первый счетчик количеством элементов в массиве, второй нулём- и поехали цикл, в цикле вместо инкремента делаешь декремент первого счетчика. и проверку на положительность элемента. Если положителен - инкрементим второй счетчик, проверяем второй счетчик, если значение строго равно 2 - заменяем элемент на 0 и выходим из цикла. Вот и все!

И кстати, что-то в твоем коде я массива-то не увидел! Ты вообще соображаешь что такое массив, что такое элемент массива? Может, стоит для начала почитать матчасть?