Нахождение суммы ряда (поправить код)

var i,n:integer;
    sum,x1,x:real;
begin
  read(n);
  sum:=0;x:=1;i:=0;
  while i<>n do begin
  sum:=sum-x;
  //x:=1;
  x:=x*(sqr(n)*sqr(n)*(exp(n*ln(n-1))))/(exp(-n*ln(n+1)));
  i:=i+1;
  //write(x:5)
  end;
  writeln(sum)
  end.

const nmax=10;
var  m:array[1..nmax] of real;
      a:array[1..nmax,1..nmax] of real;
      sum,msum:real;
      i,j,n,k:integer;
begin
 read(n);
  for i:=1 to n do begin
   for j:=1 to n do begin
    a[i,j]:=random(5);
    end;
    writeln;
  end;  
  for i:=1 to n do begin
   sum:=0;
   for j:=1 to n do begin
    sum:=sum+a[i,j];
    m[i]:=sum;
   end;
 writeln(' №',i,'-',m[i]:2)
  end;
  writeln;
  msum:=m[1];
  for i:=1 to n do
   for j:=1 to n do
    if m[1]<=m[i+1] then
    msum:=m[i];
    write(msum)
end.

var x:integer;s:real;
begin
  cls;read(x);s:=0;
   for x:=1 to x do
   begin
   s:=s+(1/(x*x));
   end;
   write('s=',s);
   end.