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

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