не могу написать цикл

[kostyon]

написал програму для вичисления суммы 5 рандомных чисел, но как ее сделать в цыкле.Для рандома цыкл я еще могу написать, но для суммы никак не получаеться

program p;
var
a,b,c,d,e,z,x,v,n,m,i,s:integer;
begin
randomize;
for i:= 1 to 1 do
begin
a:=random(100);
writeln(a);
end;
for i:= 1 to 1 do
begin
b:=random(100);
writeln(b);
end;
for i:= 1 to 1 do
begin
c:=random(100);
writeln(c);
end;
for i:= 1 to 1 do
begin
d:=random(100);
writeln(d);
end;
for i:= 1 to 1 do
begin
e:=random(100);
writeln(e);
end;
z:=a;
z:=0;
while ( a<>0 ) do 
begin
z := z + (a mod 10);
a := a div 10;
end;
x:=b;
x:=0;
while ( b<>0 ) do 
begin
x := x + (b mod 10);
b := b div 10;
end;
v:=c;
v:=0;
while ( c<>0 ) do 
begin
v := v + (c mod 10);
c := c div 10;
end;
n:=d;
n:=0;
while ( d<>0 ) do 
begin
n := n + (d mod 10);
d := d div 10;
end;
m:=e;
m:=0;
while ( e<>0 ) do 
begin
m := m + (e mod 10);
e := e div 10;
end;
s:=z+x+v+n+m;
writeln('syma zyfr=',s);
end.

[kostyon]

вот переделал под цикл, но оно считает не суму всех цифр, а по отдельности

program p;
var
a,i,s:integer;
begin
randomize;
for i:= 1 to 5 do
begin
a:=random(100);
writeln(a);
s:=0;
while ( a<>0 ) do 
begin
s := s + (a mod 10);
a := a div 10;
end;
writeln('syma zyfr=',s);
end;
end.

[sauvage]

я бы сделал немного по другому:

program test;
var 
a : array [1..5] of integer;
i, s : integer;
begin
randomize;
s := 0;
for i := 1 to 5 do
begin
  a[i] := random(100);
  s := s +  a[i];
end;
end.

[kostyon]

я уже так сделал

program p;
var
i,a,s,b:integer;
begin
randomize;
for i:= 1 to 5 do
begin
a:=random(100);
writeln(a);
s:=0;
while ( a<>0 ) do 
begin
b := b + (a mod 10);
a := a div 10;
end;
end;
s:=a+b;
writeln('syma zyfr=',s);
end.

большое спасибо!