Question

удалить в массиве второй отрицательный элемент если такой есть
pascal abc

Answer 1

удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;

Answer 2

Удалить в смысле убрать из этого массива