Правильно ли работает программа?

Uses crt;
Var S, x, e, m, S1, r, i ,g: real;
var n: integer;
 
Begin
clrscr;
writeln('Vvedite colichestvo chlenov');
readln(m);
Writeln('Vvedite tochnost');
readln(e);
  Clrscr;
 
  Writeln('||     X   ||      Summa N     ||     N       ||   R=S-E    ||    N>E   ');
 
 
  x:=-0.9;
  i:=0.1;
  while x<=0.9 do
    begin
      S:=1;
      n:=1;
      g:=1;
      while n<=m do
        begin
          n:=n+1;
          g:=(-x/n)*g;
          S:=S+g;
        end;
             S1:=1;
             n:=1;
             g:=1;
             while abs(g)>e do
             begin
             n:=n+1;
             g:=(-x/n)*g;
             S1:=S1+g;
             end;
             r:=S-S1;
 
writeln('|| ', 'x=  ',x:2:1, ' || ','S=',S:10:8, ' ||', S1:10:8, ' || ', abs(r):10:8, ' ||  ', n);
 
 
           x:=x+i;
    end;
 
 
      readln;
end.

Uses crt;
Var S, x, e, e1, S1, S2, i ,g: real;
var m,n1, n2: integer;
 
Begin
clrscr;
writeln('Vvedite colichestvo chlenov');
readln(m);
Writeln('Vvedite tochnost');
readln(e);
Clrscr;
writeln('--------------------------------------------------------------------');
Writeln('|  X  | При N=',m:3,'| При e=',e:0:5,'| N1 | При e=',e/10:0:5,'| N2 | ln(1-x) |');
writeln('--------------------------------------------------------------------');
x:=-0.9;
i:=0.1;
while x<=0.9 do
 begin
  S:=0;
  g:=1;
  for n1:=1 to m do
   begin
    g:=g*x;
    S:=s-g/n1;
   end;
  e1:=e;
  S1:=-x;
  n1:=1;
  g:=x;
  while abs(g/n1)>e1 do
   begin
    n1:=n1+1;
    g:=g*x;
    S1:=S1-g/n1;
   end;
  e1:=e/10;
  S2:=-x;
  n2:=1;
  g:=x;
  while abs(g/n2)>e1 do
   begin
    n2:=n2+1;
    g:=g*x;
    S2:=S2-g/n2;
   end;
  e1:=e/10;
  writeln('|',x:4:1,' |',S:9:5,' |',S1:12:5,'  |',n1:3,' |',S2:12:5,'  |',n2:3,' |',ln(1-x):9:5,'|');
  x:=x+i;
 end;
write('--------------------------------------------------------------------');
readln;
end.