Дан линейный массив из 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 n0 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.