Вычисление массива.

[tp7]

Добрый день!Помогите пожалуйста добрым кодом.Дан одномерный массив a[i] (все элементы одинаковые числа).Нужно вычислить одномерный массив x[j]=∑ от g=1 до j a[i]/100 , т.е. простыми словами сумма от g=1 до j массива a[i]/100.У меня получается так:
x[j]:=0;
for j:=1 to m do
x[j]:=x[j]+a/100;end;
for j:=1 to m do
writeln(x[j]);
Но массив получается с одинаковыми элементами.А нужно что бы например х[1]=∑a[i] от g=1 до 1 , x[2]=∑a[i] от g=1 до 2 и т.д.Проблема у меня в том что вычисление суммы и вывод массива происходит с помощью одного и того же цикла: for to do.Поэтому и начинается путаница.

[Mad_Cat]

for i:=1 to n do begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
For j:=1 to n do begin
x[j]:=0;
for i:=1 to j do
x[j]:=x[j]+a[i]/100;
write(x[j]:6:2);
end;