Вычислить сумму ряда двумя способами

var
  Form1: TForm1;
  x:extended;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var c:integer;
begin
val(Edit1.Text,x,c);
if c<>0 then
 begin
  ShowMessage('Неверно введено Х');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
case RadioGroup1.ItemIndex of
0:Label1.Caption:='Введите число членов ряда N=';
1:Label1.Caption:='Введите точность e=';
end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var n,i:integer;
    a,e,t,s:extended;
begin
if x=0 then a:=1
else a:=sin(x)/x;
case RadioGroup1.ItemIndex of
0:begin
   val(Edit2.Text,n,i);
   if i<>0 then
    begin
     ShowMessage('Неверно введено чило членов');
     Edit2.Clear;
     Edit2.SetFocus;
     exit
    end;
    t:=1;
    s:=t;
    for i:=1 to n do
     begin
      t:=-t*x*x/(2*i)/(2*i+1);
      s:=s+t
     end;
    Edit3.Text:='Вычисленное значение='+floattostrF(s,ffFixed,10,4)+
           '   Аналитическое значение='+floattostrF(a,ffFixed,10,4);
   end;
1:begin
   val(Edit2.Text,e,i);
   if i<>0 then
    begin
     ShowMessage('Неверно введена точность');
     Edit2.Clear;
     Edit2.SetFocus;
     exit
    end;
   i:=0;
   t:=1;
   s:=t;
   while abs(s-a)>e do
    begin
     i:=i+1;
     t:=-t*x*x/(2*i)/(2*i+1);
     s:=s+t
    end;
   Edit3.Text:='Вычисленное значение='+floattostrF(s,ffFixed,10,4)+
           '   Аналитическое значение='+floattostrF(a,ffFixed,10,4);
 end;
end;
end;
end.

var
  n, i : Byte;
  sum, xPow, x : Double;
  
function factorial(n : Byte) : Double;
var
  i : Byte;
  fact : Double;
begin
  fact := 1;
  for i := 2 to (2 * n + 1) do
    fact := fact * i;
  factorial := fact;
end;
 
begin
  Write('Input n='); ReadLn(n);
  Write('Input x='); ReadLn(x);
  sum := 1; xPow := 1;
  for i := 1 to n do
  begin
    xPow := xPow * (-1) * sqr(x);
    sum := sum + xPow / factorial(i);
  end;
  WriteLn('sum=', sum:3:3);
end.