Найти пропущенные команды . ввести с клавиатуры массив а ,из 155 элементов вещественного типа ,нумерация элементов начинается с 1 и заменить элементы с отрицательными номерами на число 729. вывести все элементы массива после замены

Писал на Паскале.

Нумерация элементов массива начинается с 1, тогда что там заменять, если нужно заменить элементы с отрицательными номерами?

var a: array [1..155] of real;

begin

for var i := 1 to 155 do

 read(a[i]);

for var i := 1 to 155 do

 write(a[i], ' ');

end.