Значение функции S(x) и Y(x) циклические алгоритмы

const n=10;
      xn=0.1;
      xk=1.0;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function S(x:real):real;
var t:real;
    i:integer;
begin
t:=1;
result:=t;
for i:=1 to n do
 begin
   t:=t*x*x/(2*i)/(2*i-1);
   result:=result+t;
 end;
end;
function F(x:real):real;
begin
result:=(exp(x)+exp(-x))/2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,h:real;
    k:integer;
begin
with StringGrid1 do
 begin
  colcount:=3;
  rowcount:=12;
  cells[0,0]:='x';
  cells[1,0]:='S(x)';
  cells[2,0]:='Y(x)';
 end;
h:=(xk-xn)/10;
x:=xn;
k:=0;
while x<=xk do
 begin
  k:=k+1;
  with StringGrid1 do
   begin
    cells[0,k]:=FloatToStrF(x,ffFixed,5,1);
    cells[1,k]:=FloatToStrF(S(x),ffFixed,8,4);
    cells[2,k]:=FloatToStrF(F(x),ffFixed,8,4);
   end;
  x:=x+h;
 end;
end;