Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран не нулевые элементы и найти их произведения

Var a: array[0..10] of integer;
i,n,sum: integer;
begin
sum:=1;
for i:=0 to 9 do
begin
writeln('Введите ',i+1,' число');
readln(n);
a[i]:=n;
if n<>0 then
begin
sum:=sum*a[i];
end;
end;
for i:=0 to 9 do
begin
if a[i]<>0 then writeln('Значения: ',a[i]);
end;
writeln('Произведение: ',sum);
end.