Найти сумму ряда с точностью Е

uses crt;
var
a,s,z: real;
i,n: integer;
begin
write('Введите N: ');
read(n);
for i:=1 to n do begin
z:=(n-1)/(n*n);
a:=Power((-1),z);
s:=s+a;
writeln(s:1:3);
end;
end.

var
   e,n,ch,sum:real;
function step(h,st:real):real; {функция для возведения числа в степень}
var pr:real;
begin
     pr:=h;
     h:=1;
     while(st>0) do
     begin
          h:=h*pr;
          st:=st-1;
     end;
     step:=h;{возвращение полученного числа}
end;
begin
     e:=0.001;
     ch:=1;
     sum:=0;
     n:=1;
     while(abs(ch)>e) do
     begin
          ch:=step(-1,n-1)/step(n,n); {новый член последовательности}
          n:=n+1;
          sum:=sum+ch; {увеличение суммы}
     end;
     writeln(ch); {вывод суммы}
end.

uses crt;
const e=10e-3;
var
pow1,pow2,s,z,r: real;
i,n: integer;
begin
write('Введите N: ');
read(n);
s:=0;
r:=1;
while abs(r)>e do
      begin
      z:=n-1;
      pow1:=power(-1,n-1);
      pow2:=power(n,n);
      r:=pow1/pow2;
      s:=s+r;
      end;
writeln(s);
end.