Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы значения функции

var x, a, s, e: real;
    n: integer;
begin
  repeat
    write('|x| > 1;  x = ');
    readln(x)
  until abs(x) > 1;
  repeat
    write('eps > 0;  eps = ');
    readln(e)
  until e > 0;
  a := 1 / x;
  x := x * x;
  s := a;
  n := 0;
  while abs(a) >= e do
    begin
      inc(n);
      a := (n - 0.5) / (n + 0.5) * a / x;
      s := s + a
    end;
  writeln('S = ', s);
  readln
end.

procedure ReadlnQ(s: string; var z: real; t: real);
begin
  repeat
    write(s);
    readln(z)
  until z > t
end;
 
const str = '+------------------------+------------------------+---------------+';
var x, xn, xk, dx, a, s, e: real;
    n: integer;
begin
  write('xn = ');
  readln(xn);
  ReadlnQ('xk > xn;  xk = ', xk, xn);
  ReadlnQ('dx > 0;  dx = ', dx, 0);
  ReadlnQ('eps > 0;  eps = ', e, 0);
  x := xn;
  writeln('Таблица значений функции arth(x), вычисленных с помощью ряда Тейлора');
  writeln(str);
  writeln('|            x           |        arth(x)         |        n      |');
  writeln(str);
  while x < xk + dx / 2 do
    begin
      write('| ', x, ' | ');
      if abs(x) <= 1
        then writeln          ('         не определено | не определено |')
        else begin
          a := 1 / x;
          s := a;
          n := 0;
          while abs(a) >= e do
            begin
              inc(n);
              a := (n - 0.5) / (n + 0.5) * a / x / x;
              s := s + a
            end;
          writeln(s, ' |', n:14, ' |');
        end;
      x := x + dx
    end;
  writeln(str);
  readln
end.

const str = '+------------------------+------------------------+---------------+';
var x, xn, xk, dx, a, s, e: real;
n, sum: integer;
begin
write('Введите xn = ');
readln(xn);
Write('xk > xn xk = ');
Readln(xk);
Write('dx > 0; dx = ');
Readln(dx);
Write('eps > 0; eps = ');
Readln(e);
x := xn;
writeln('Таблица значений функции arth(x), вычисленных с помощью ряда Тейлора');
writeln(str);
writeln('| x | arth(x) | к-во просуммированных членов ряда|');
writeln(str);
while x < xk + dx / 2 do
begin
write('| ', x, ' | ');
if abs(x) <= 1
then writeln (' не определено | не определено |')
else begin
a := 1 / x;
s := a;
n := 0;
 
while abs(a) >= e do
begin
 
inc(n);
a := (n - 0.5) / (n + 0.5) * a / x / x;
s := s + a
end;
writeln(s, ' |', n:14 , ' |');
end;
x := x + dx
end;
writeln(str);
end.

      write('|',x:18,' |');

        then writeln('не определено':18,' |','не определено':14,' |')

          writeln(s:18,' |',n:14, ' |');