ошибка((Напишите программу вычисления суммы: 1! + 2! + 3! + … + n! Паскаль АВС(через процедуру)

Почему выходит сумма=0(((
var fact,sum,n,x:integer;
procedure factorial(x:integer);
begin
if n>1 then Fact:=n*fact*(n - 1) else Fact:=1;
end;
begin
sum:=0;
for x:=1 to n do sum:=sum+fact*(x);
writeln('sum=',sum+fact*(x));
end.