Algo factoriel

mon probleme est ici:
ecrire une traduction en pascal qui calcule la somme s= 1!+2!+3!+......................+ n! (factoriel)
j'ai fait une mais ca donne des resultats fausses. merci d'avance :)

program facto;
uses wincrt;
var i,j,x,y:integer;n:integer;

begin
repeat
write('donner un nombre');readln(n);
until (n>=0);
x:=1 ; y:=0;
if n=0 then
write (n,'!=1')
else begin
for i:=1 to n do
begin
for j:=1 to i do
begin
x:=x*j;
y:=y+b;x:=1;
end;
end;

write (y); end;
end.

voila la reponse:

Program factoriel;
uses wincrt;
var x,i,n:integer;
begin
repeat
write('donner un nombre');readln(n);
until (n>=0);
x:=1 ;
if n=0 then
write (n,'!=1')
else
begin for i:=1 to n do
x:=x*i;
write (n,'!=',x);
end;
end.