В задаче необходимо вывести на экран таблицу значений функции У(х) и ее разложения в ряд С (х) для значений х от до с шагом.(Паскаль)

uses crt;
function fact(q : integer) : longint;
  var
    k : integer;
    f : longint;
  begin
      f := 1;
      for k := 2 to q do
        f := f * k;
      fact := f
  end;
var xn,xk,x,s,dx,t,ex:real;
n,i:integer;
begin
clrscr;
xn:=0.1;
xk:=1;
dx:=(xk-xn)/10;
n:=8;
writeln('       Табулирование функции F(x)=2*(cos(x))^2-1),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:2,'..',xk:0:2,' с шагом ',dx:0:2);
writeln;
writeln('        -----------------------------------');
writeln('        |   X   |    S    |2*(cos(x))^2-1)|');
writeln('        -----------------------------------');
x:=xn;
while x<=xk+dx/2 do
 begin
  t:=1;
  s:=0;
  for i:=1 to n do
   begin
    t:=-t*exp(2*ln(2*x))/fact(2*i);
    s:=s+t;
   end;
  ex:=2*((sqr(cos(x)))-1);
  writeln('        | ',x:5:2,' |',s:8:4,' |',ex:8:4,'       |');
  x:=x+dx;
 end;
writeln('        -----------------------------------');
readln
end.

uses crt;
const n=8;
      xn=0.1;
      xk=1.0;
function S(x:real):real;
var sm,t:real;
    i:integer;
begin
sm:=0;
t:=1;
for i:=1 to n do
 begin
  t:=-t*4*x*x/(2*i*(2*i-1));
  sm:=sm+t;
 end;
S:=sm
end;
function Y(x:real):real;
begin
Y:=2*(sqr(cos(x))-1)
end;
var x,h:real;
begin
clrscr;
h:=(xk-xn)/10;
writeln('       Табулирование функции F(x)=2*(cos(x))^2-1),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:2,'..',xk:0:2,' с шагом ',h:0:2);
writeln;
writeln('        ------------------------------');
writeln('        |   X   |   S(x)  |   Y(x))  |');
writeln('        ------------------------------');
x:=xn;
while x<=xk+h/2 do
 begin
  writeln('        | ',x:5:2,' |',S(x):8:4,' |',Y(x):8:4,'  |');
  x:=x+h;
 end;
writeln('        ------------------------------');
readln
end.