Знакопеременный ряд

[specialist]

Прошу помогите !!!
Разработать схему алгоритма и программу вычисления значения сумм S знакопеременного ряда с точностью Е=0,0001. Вывести начальные данные и рез-ты вычислений(Е,S,кол-во членов ряда,которые по модулю не меньше Е, значения первого члена ряда, который по модулю меньше Е).

Программа зацикливается - не могу ничего сделать.

program zadanie_4k;
uses crt;
const
    e=0.0001;
var n:integer;
    p,s:real;

 begin
 clrscr;
   n:=1;
   p:=(2-3*n)/4*n;
   s:=p;
     repeat
    p:=p*((2-3*n)/4*n);
   inc(n);
   s:=s+p;

  writeln(' n=',n);
  readln;

  writeln(' p=',p:12:5);
  readln;

  writeln(' s=',s:12:5);
  readln;


   until abs(p)<e;


  writeln('Сумма ряда s=',s:12:5);
  readln;
end.

[stck]

var n,i:integer;
     p,s,eps:real;
BEGIN
     readln(eps);
     n:=2;
     s:=-0.25;
     i:=1;
     repeat
     p:=(2-3*n)/4*n;
     while (i<=n) do
          begin
               p:=p*p;
               inc(i);
          end;
     i:=1;
     s:=s+p;
     inc(n);
     until abs(p)<=eps;
     writeln(s);
END.