Задано натуральное N. Вычислить сумму 1!+2!+3!+…+N! — Pascal(Паскаль)

program z_summa;
uses crt;
var Number, counterI: word;
    Summa, Factorial: longint;
begin
 clrscr;
 writeln('Введите количество факториалов')
 readln(Number);
 Summa := 0;
 Factorial := 1;
for CounterI := 1 to Number do
 begin
  Factorial := Factorial * CounterI;
  Summa := Summa + Factorial;
 end;
 writeln('Сумма факториалов равна ',Summa);
 readln;
end.