Помогите пожалуйста!!
Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид:
a(n-нижний индекс)=n!/n^n

var    i, n: integer;    a, s, e: real;function Factorial(n: integer): longint;var    f, i: longint;begin    f := 1;    for i := 1 to n do        f := f * i;    Factorial := f;end;function Power(x: real; n: integer): real;var    i: integer;    p: real;begin    p := 1;    for i := 1 to n do        p := p * x;    Power := p;end;begin    readln(e, n);        s := 0;    for i := 1 to n do     begin        a := Factorial(n) / Power(n, n);        if abs(a) < e then            s := s + a;    end;        writeln(s);end.