Найти сумму отрицательных членов последовательности

[Олесенька]

помогите решить задачу пожалуйста

Найти сумму отрицательных членов последовательности....
последовательность ((-1)^(k-1)*x^(h-1)*e^(-p*k))/(k+1)!
где
x=x0+(i-1)*h;
p=max(a,b,c,d);
i=1,...,m

с клавы вводим значения- a=1.2 b=-0.5 c=-3.4 d=1.3 x0=1.4 h=0.2 m=5
n=7

то что смогла сделать...дальше не понимаю

uses crt;
Var a, b, x0, h, p, x,x0,max, min, ak, s, c, d, p0: real;
n, m, l, g, i, k: integer;
begin
clrscr;
writeln('VVEDITE a, b, c, d, p0, h, m, n');
read(a, b, c, d, p, h, m, x0);
if a>b
then
max:=a
else
max:=b;
if c>d
then
min:=d
else
min:=c;
{perebor X}
for i:=1 to m do
begin
x:=x0+(i-1)*h;
p:=max;