Вычислить 1!+2!+3!+. ....+N! Вычисление факториала организовать как функцию

uses crt;
var n,i,k: longint;
function Factorial(n: longint): LongInt;
var
  fact: longint;
begin
  fact := 1;
  if n=0 then exit;
  for n := 1 to n do
  fact := fact*n;
  Factorial := fact;
end;
begin clrscr;
write('Ââåäèòå n: '); readln(n);
for i:=1 to n do
k:=k+factorial(i);
writeln(k);
end.

uses crt;
type mas = array[1..255,1..255] of integer;
     mas2 = array[1..255] of integer;
var A: mas; B: mas2;
    i,j,n,m,sum: integer;
procedure easy(A: mas; var B: mas2);  {Ïðîöåäóðà, íàéäåì âñå ïðîñòûå ýëåìåíòû}
var h,k,g,tmp: integer;
begin
g:=1;
for i:=1 to n do                  {ñîáñòâåííî, ñëåäóþùèå 7 ñòðîê - ýòî è åñòü ïîèñê}
  for j:=1 to m do begin
  for h:=2 to A[i,j]-1 do
  if A[i,j] mod h = 0 then inc(k);
  if k=0 then begin
  B[g]:=A[i,j];  {Çàáèâàåì ïðîñòûå ýëåìåíòû â îäíîìåðíûé ìàññèâ}
  inc(g);
  end; end;
for h:=1 to 2*g do        {ñîðòèðóåì åãî ïî óáûâàíèþ...}
  for i:=1 to g-1 do
   if B[i]<B[i+1] then begin
   tmp:=B[i];
   B[i]:=B[i+1];
   B[i+1]:=tmp;
   end;
end;
begin clrscr;
randomize;
write('Ââåäèòå n: ');    {êîëè÷åñòâî ñòðîê}
readln(n);
write('Ââåäèòå m: ');     {êîëè÷åñòâî ñòîëáöîâ}
readln(m); writeln;
writeln('Ìàòðèöà: ');
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=random(100);       {çàäàåì ðàíäîìíóþ ìàòðèöó...}
write(A[i,j]:4);
end; writeln;
end;
easy(A,B);            {Âûçûâàåì ïðîöåäóðó}
sum:=B[1]+B[2];      {Cóììèðóåì ïåðâûå äâà ýëåìåíòà ìàññèâà ïðîñòûõ ýëåìåíòîâ}
writeln; writeln;
writeln('Ñóììà íàèáîëüøèõ ïðîñòûõ: ',sum); {âûâîäèì ðåçóëüòàò}
end.

function fact(n :integer):integer;
begin
if n = 1 then
fact:=1
else
fact:=fact(n-1)*n;
end;