Программа ничего не выводит

program sr333;
const ep=0.0001;
var 
  s,a:real;
  n:integer;
  begin
    s:=0;
    n:=1;
    repeat
      n:=n+1;
      s:=s+a;
      a:=((exp(ln(-1)*n))*(n+1))/(sqr(n)+1)*sqrt(n);
    until abs(a)<ep;
    writeln('ep= ',ep:0:4);
    writeln('Кількість членів ряду, які > ep',n);
    writeln('Сума=',s:0:4);
    writeln('Перший член < ep',a);
  end.

 a:=((exp(ln(-1)*n))*(n+1))/(sqr(n)+1)*sqrt(n);

program sr333;
uses
crt;
const
  ep = 0.0001;
 
function PowMinus1(n: integer): integer;
{Функция, которая возвращает значение числа -1 в степени n}
begin
  if odd(n) then
    PowMinus1:= -1
  else
    PowMinus1:= 1;
end;
 
 
var
  s,a: real;
  n: integer;
begin
  s:= 0;
  n:= 1;
  repeat
    a:=(PowMinus1(n)*(n+1))/(sqr(n)+1)*sqrt(n);
    n:= n+1;
    s:= s+a;
    writeln(n,' ',a:10:5);
  until abs(a) < ep;
  writeln('ep = ',ep:0:4);
  writeln('Кількість членів ряду, які > ep: ',n);
  writeln('Сума = ',s:0:4);
  writeln('Перший член < ep: ',a:0:4);
  readln;
end.

program sr333;
 
const
  ep = 0.01;
  maxiter = 2000;
 
function PowMinus1(n: integer): integer;
{Функция, которая возвращает значение числа -1 в степени n}
begin
  if odd(n) then
    PowMinus1:= -1
  else
    PowMinus1:= 1;
end;
 
 
var
  s,a: real;
  n: integer;
begin
  s:= 0;
  n:= 0;
  repeat
    n:= n+1;
    a:=(PowMinus1(n)*(n+1))/(sqr(n)+1)*sqrt(n);
    s:= s+a;
   { writeln(n,' ',a:10:5);}
  until (abs(a) < ep) or (n >= maxiter);
  writeln('ep = ',ep:0:4);
  writeln('Кількість членів ряду, які > ep: ',n);
  writeln('Сума = ',s:0:4);
  writeln('Перший член < ep: ',a:0:4);
  readln;
end.