Помогите решить ошибку в Pascal.
Проблема в следующем: Надо посчитать ненулевые элементы массива, которые я задаю рандомно. Считает верно, но не берёт условие if (i<>0) во внимание. Просьба программу не переписывать под себя, просто исправить на то, как это должно выглядеть.

program x;
const n=7;
var range: array[1..n] of integer;
i,z: integer;
begin
z:=1;
for i:=1 to n do
range[i]:=random(6)-2;
for i:=1 to n do
write (range[i]:3);
for i:=1 to n do
if (i<>0) then z:=z*range[i];
writeln;
writeln('Произведение ненулевых элементов: ',z);
end.

строку   if (i<>0)  .....        заменить на     if (range[i]<>0)  .......