Как найти проиизведение в одномерном массиве?

[Карась]

Просто получается что в коде:

for i := left + 1 to right - 1 do
rez:= rez * mas[i];

Если допустим нули стоят на 5 и 6 месте то:
for i:=6 to 5 do........ естественно цикл невыполняется и следовательно идёт игнор rez:= rez * mas[i];