Написать программу, которая решает вычисление произведения ряда

const a=1;
      b=6;
      h=1;
      e=0.001;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
uses math;
function S(x:double):double;
var t:double;
    k:integer;
begin
k:=4;
t:=k*cos(k*x)/(4*k*k-1);
result:=t;
while abs(t)>e do
 begin
  k:=k+1;
  t:=k*cos(k*x)/(4*k*k-1);
  result:=result+t;
 end;
end;
function Y(x:real):real;
begin
Y:=-1/4-cos(x/2)*ln(tan(x/4))/4;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,ac:real;
    k:integer;
begin
with StringGrid1 do
 begin
  colcount:=4;
  rowcount:=7;
  cells[0,0]:='x';
  cells[1,0]:='S(x)';
  cells[2,0]:='Y(x)';
  cells[3,0]:='accuracy';
 end;
k:=0;
x:=a;
while x<=b do
 begin
  k:=k+1;
  with StringGrid1 do
   begin
    ac:=abs(S(x)-Y(x)/Y(x))*100;
    cells[0,k]:=FloatToStrF(x,ffFixed,5,2);
    cells[1,k]:=FloatToStrF(S(x),ffFixed,8,5);
    cells[2,k]:=FloatToStrF(Y(x),ffFixed,8,5);
    cells[3,k]:=FloatToStrF(ac,ffFixed,8,5);
   end;
  x:=x+h;
 end;
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
const a=1;
      b=6;
      h=1;
      e=0.00001;
function S(x:double):double;
var t:double;
    k:integer;
begin
k:=1;
t:=k*cos(k*x)/(4*k*k-1);
result:=t;
while abs(t)>e do
 begin
  k:=k+1;
  t:=k*cos(k*x)/(4*k*k-1);
  result:=result+t;
 end;
end;
function Y(x:real):real;
begin
Y:=-1/4-cos(x/2)*ln(tan(x/4))/4;
end;
var x,ac:real;
    k:integer;
begin
writeln('   x      S(x)      Y(x)   accuracy');
k:=0;
x:=a;
while x<=b do
 begin
  k:=k+1;
  ac:=abs((S(x)-Y(x))/Y(x))*100;//я в том коде здесь напутал со скобками!!!
  writeln(x:5:2,'  ',S(x):8:5,'  ',Y(x):8:5,'  ',ac:8:5);
  x:=x+h;
 end;
readln;
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
const a=1;
      b=6;
      h=1;
      e=0.00001;
function S(x:double;var k:integer):double;
var t:double;
begin
k:=1;
t:=k*cos(k*x)/(4*k*k-1);
result:=t;
while abs(t)>e do
 begin
  k:=k+1;
  t:=k*cos(k*x)/(4*k*k-1);
  result:=result+t;
 end;
end;
function Y(x:real):real;
begin
Y:=-1/4-cos(x/2)*ln(tan(x/4))/4;
end;
var x,ac,t:real;
    k:integer;
begin
writeln('   x      S(x)      Y(x)   accuracy    N');
x:=a;
while x<=b do
 begin
  t:=S(x,k);
  ac:=abs((t-Y(x))/Y(x))*100;
  writeln(x:5:2,'  ',t:8:5,'  ',Y(x):8:5,'  ',ac:8:5,k:6);
  x:=x+h;
 end;
readln;
end.