Вычислить и вывести на экран в виде таблицы значение функции

program lab_4;
 
uses crt;
var n,x,el,st,d1,d2,d3,e:real;
begin
     write('wedite x=');
     readln(x);
     write('wedite tochnost e=');
     readln(e);
     n:=1;
     st:=3;
     el:=x;
     while el>e do
     begin
     el:=x-(1/2)*(sqr(x)/st)+(1/2)*(st/st+1)*(-1);
     st:=st+2;
     end;
     writeln('el=',el:4:2);
     readln
end.

uses crt;
procedure Arsh(x,e:real;var s:real; var i:longint);//вычисление значения
var si,t:real;
begin
si:=x;//нулевой член ряда=х
s:=0;//сумма итоговая
t:=x;//очередной член ряда
i:=0;//счетчик
while abs(s-si)>e do//пока абсолютная разность текущего и предыдущего членов
                     // больше точности
 begin
  s:=si;//запоминаем сумму
  i:=i+1;//следующий
  t:=-t*(2*i-1)*x*x/(2*i);//очередной член - меняем знак, домножаем на х^2,
                          //домножаем на 2*i-1(1,3,5,7...), делим на 2*i(2,4,6,8..)
  si:=si+t/(2*i+1);//добавляем к сумме, разделив на 2*i+1(3,5,7,9...)
 end;
end;
var x,xn,xk,dx,e,s:real;
    n:longint;
begin
clrscr;
xn:=-0.9;//поскольку в задании нет интервала, его нужно ввести(х по модулю меньше 1)
xk:=0.9; //я для примера взял весь интервал
dx:=0.1;//с шагом 0.1
x:=xn-dx;//начинаем отступив на шаг, чтоб попасть в конец интервала точно
while x<=xk do//пока не конец
 begin
  x:=x+dx;//наращиваем х
  Arsh(x,e,s,n);//вычисляем
  writeln('x=',x:4:1,'  s=',s:9:6,'  n=',n);//выводим
 end;
readln
end.