Паскаль

[Roll1n]

Дан массив целых положительных чилел.
Нужно вычислить сумму произведений цифр каждого элемента массива
(с помощью див и мод)
Вот мой набросок,но что-то в нем не правильно,т.к. при вводе любого массива сумма произведений равняется 1.

program zxc;
uses CRT;
var
a:array[1..100] of integer;
s,z,p,i,n,d:integer;
begin
  clrscr;
  write('длина массива');
  readln(n);
  write('введите ',n,'  элемента массива >0 ');
  for i:=1 to n do
  read(a[i]);
  writeln('массив a:');
  for i:=1 to n do
  write(a[i]:5);
  p:=1;
  for i:=1 to n do
   begin
     z:=a[i];
     s:=0;
     d:=0;
      while z>=1 do
       begin
	d:=z mod 10;
	z:=z div 10;
	s:=s*d;
       end;
     p:=s+p;
   end;
  writeln;
  writeln('сумма произведений цифр =',p);
end.

[Chudo4258]

program zxc;
uses CRT;
var
a:array[1..100] of integer;
s,z,p,i,n,d:integer;
begin
  clrscr;
  write('длина массива');
  readln(n);
  write('введите ',n,'  элемента массива >0 ');
  for i:=1 to n do
  read(a[i]);
  writeln('массив a:');
  for i:=1 to n do
  write(a[i]:5);
  p:=0;
  for i:=1 to n do
   begin
     z:=a[i];
     s:=1;
      while z<>0 do//хотя этоот способ тоже не получится для чисел оканчивающихся 0 (100), тогда произведение должно быть = 0, а в этом случае будет 1.
       begin
	d:=z mod 10;
	z:=z div 10;
	s:=s*d;
       end;
     p:=s+p;
   end;
  writeln;
  writeln('сумма произведений цифр =',p);
end.