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

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