[GAP Forum] list of list

[Denise Torrão]

Hello, my name is Denise and I'm starting to work in GAP. I'm trying to compute a simple program, but I'm with some dificulty, because I implement a cycle for, and my values of the list change. The program is the following:
algoritmo14:=function(p,D,c)
local soma, soma2, aux, aux3,i,A,x;
A:=[];A[1]:=[];x:=[];
for j in [1..p-1] do	A[1][j]:=0;od;A[1][p]:=c;

for i in [1..p-1] do	x[i]:=0;od;x[p]:=c;
i:=p-1;
soma:=0;
while (i>0) do	for aux in [i+1..p] do		soma:=soma+D[aux]*x[aux];	od;	if (soma >= D[i]) then		x[i]:=x[i]+1;				x[p]:=soma-D[i];
		for aux3 in [i+1..p-1] do			x[aux3]:=0;		od;Print("A1-> ",A,"\n");
		Add(A,x);Print("A2-> ",A,"\n");		i:=p-1;	else		i:=i-1;	fi;	soma:=0;od;

return A;end;	
My problem is with the list A, that changes, and in the final all it's elements (except for the first one) are equal. Can someone help me? I guess is something very trivial, but as I said before, I'm taking my first steps with GAP, so I still have a lot of dificulties with this program.
Very very thanks,
Denise Torrão