Даны числовой ряд и некоторое число Е>0.Найти сумму тех членов ряда,которые больше Е.Общий член ряда имеет вид: Аn=((-1)^n)/n- Pascal(Паскаль)

uses crt;
var s,e,t:real;
   n,z:longint;
begin
clrscr;
repeat
write('Введите точность вычислений e>0 e=');
readln(e);
until e>0;
if e>=1 then s:=0
else
 begin
  n:=1;
  s:=-1;
  z:=-1;
  t:=-1;
  while abs(t)>e do
   begin
    z:=-z;
    n:=n+1;
    t:=z/n;
    s:=s+t;
   end;
  end;
write('S=',s:0:5);
readln
end.