Определение количества слагаемых в уравнении

label tryAgain;
var x,curRes,trueRes,tempRes:real;
addCounter:integer;
eqCheck:boolean;
begin
tryAgain:
writeln('Введите X');
readln(x);
if x<pi then
  begin
    if x>-pi then
      begin
        eqCheck:=false;
        addCounter:=1;
        curRes:=-cos(x)+(cos(2*x)/4);
        trueRes:=1/4*(x*x-pi*pi/3);
        while eqCheck=false do
          begin
            if curRes=trueRes then
              begin
                writeln('Равенство выполняется, кол-во слагаемых =', addCounter);
                eqCheck:=true;
              end
            else
              begin
                tempRes:=curRes;
                curRes:=curRes-(Power(-1,addCounter)*cos(addCounter*x)/(addCounter*addCounter));
                Inc(addCounter);
              end;
          end;
      end
    else
        begin
          writeln('Введённое значение X не принадлежит области допустимых значений! Повторите попытку...');
          goto tryAgain;
        end;
  end      
else 
  begin
    writeln('Введённое значение X не принадлежит области допустимых значений! Повторите попытку...');
    goto tryAgain;
  end;
end.

label tryAgain;
var x,curRes,trueRes:real;
addCounter,accuracy:integer;
eqCheck:boolean;
begin
tryAgain:
writeln('Введите X');
readln(x);
// Проверка значения Х на принадлежность к интервалу
if x<=pi then
  begin
    if x>=-pi then
      begin
        writeln('С точностью до какой степени произвести расчёт?');
        writeln('Пример: до тысячных - введите "1000"');
        readln(accuracy);
        eqCheck:=false;
        addCounter:=1;
        curRes:=0;
        trueRes:=trunc(((x*x-pi*pi/3)/4)*accuracy)/accuracy;
        writeln('Значение правой части = ',trueRes);
        // Запуск цикла добавления слагаемых до тех пор, пока уравнение не выполнится
        while eqCheck=false do
          begin
            if trunc(curRes*accuracy)/accuracy = trueRes then
              begin
                writeln('Равенство выполняется, кол-во слагаемых = ', addCounter);
                writeln('Полное значение левой части = ',curRes);
                eqCheck:=true;
              end
            else
              begin
                curRes:=curRes+(Power(-1,addCounter)*cos(addCounter*x)/(addCounter*addCounter));
                Inc(addCounter);
              end;
          end;
      end
    else
        begin
          writeln('Введённое значение X не принадлежит области допустимых значений! Повторите попытку...');
          goto tryAgain;
        end;
  end      
else 
  begin
    writeln('Введённое значение X не принадлежит области допустимых значений! Повторите попытку...');
    goto tryAgain;
  end;
end.