Подскажите, как исправить код

implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='0,1';
Edit2.Text:='0,5';
Edit3.Text:='10';
Edit4.Text:='0,0001';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
xn, xk, x, a, s, m, e, h, y: extended;
n: integer;
begin
Memo1.Clear;
Memo1.Lines.Add('Результаты вычислений: ');
xn:=StrToFloat(Edit1.Text);
xk:=StrToFloat(Edit2.Text);
m:=StrToFloat(Edit3.Text);
e:=StrToFloat(Edit4.Text);
Memo1.Lines.Add('Xn = '+Edit1.Text);
Memo1.Lines.Add('Xk = '+Edit2.Text);
Memo1.Lines.Add('Количество шагов (M) = '+Edit3.Text);
Memo1.Lines.Add('Точность (e) = '+Edit4.Text);
h:=(xk-xn)/m;
x:=xn;
repeat
a:=0.1; s:=0.1; n:=0;
while (abs(a)>e) do
begin
  inc(n);
  a:=-a*Sqr(x)*(2*n-1)/(2*n+1);
  s:=s+a;
end;
y:=arctan(-x);
Memo1.Lines.Add('При x = '+FloatToStrF(x,fffixed,6,2)+' сумма равна '+FloatToStrF(s,fffixed,8,4)+' y = '+FloatToStrF(y,fffixed,8,4)+' n = '+IntToStr(n));
x:=x+h;
until x>(xk+h/2);
end;

//Вычисление элемента (члена) ряда с номером aN для точки aX.
//aN - номер члена ряда. Номера начинаются с нуля.
function CalcElement(aX : Extended; aN : Longword) : Extended;
var
  Sign    : Integer;
begin
  //Реализация (-1)^aN
  if Odd(aN) then begin
    Sign := -1;
  end else begin
    Sign := 1;
  end;
  //Вычисление члена ряда.
  Result := Sign * Power(aX, 2 * aN + 1) / (2 * aN + 1);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
...
 
  s := 0;
  n := -1;
  repeat
    //Pred(IterCountMax) - потому что мы считаем n от нуля,
    //Succ(n) - потому что должны оценить n на ещё нерасчитанном шаге.
    if Succ(n) > Pred(IterCountMax) then begin
      //Запись в журнал.
      Log.Add(
        'Расчёт точки: "' + FloatToStr(x) + '".'
        + ' Достигнуто предельное число итераций (=' + IntToStr(IterCountMax) + '). Вычисления остановлены.'
        + ' Достигнутая точность = ' + FloatToStr(a) + '.'
      );
      Break;
    end;
    //Подсчитаем номер члена ряда.
    Inc(n);
    //Вычисляем очередной член ряда.
    a := CalcElement(x, n);
    //Значение всего ряда.
    s := s + a;
  Until Abs(a) < e;
 
...
 
end;