условие: s= 1!+2!+3!+…+n!

Есть программа, но ее нужно изменить, подскажите как, пожалуйста!
Program Factorial;
Uses Crt;
Var I,S,n:Longint;

Begin
Clrscr;
WriteLn('Рассчет суммы факториалов от 1 до n');
WriteLn('Bведите n');
ReadLn(n);
S:=1;
For I:=1 To n Do S:=S*i;
WriteLn('Число=',S);
ReadLn;
End.

Ваша программа считает не факториал,я произведение 1*2*3*4.....*n по сути это n!, но никак не сумма этих факториалов.

Program Factorial;

Var i,S,t,n:Longint;

Begin
 WriteLn('Рассчет суммы факториалов от 1 до n');
 WriteLn('Bведите n');
 ReadLn(n);
 S:=1;
 t:=1;
 For i:=2 To n Do 
 begin
   t:=t*i;
   S:=S+t;
 end;
WriteLn('Число=',S);
ReadLn;
End.

Вот это уже сумма факториалов.

Спасибо Вам огромное!