Исправить ошибку в программе нахождения минимума функции методом перебора

var a,b,e:real;
N:integer;
i:Integer;
x:real;
function f(x:real):real; 
begin f:=x*cos(x)-2*sin(x);
end;
begin
e:=0.0001;
a:=-6;
 b:=-3;
 N:=trunc((b-a)/e); {Вычисляем количество
    перебираемых вариантов решения}
  for i:=1 to N do
  begin
    x:= a+(i-1)*e; {Вычисляем вариант, соответствующий номеру i}
    if((x-e)*cos(x-e)-2*sin(x-e)>= x*cos(x)-2*sin(x))and
    (x*cos(x)-2*sin(x)<=(x+e)*cos(x+e)-2*sin(x+e))then
     writeln(x);
  end;
  End.

const e=0.0001; // точность
var
a,b: real; // начало и конец отрезка
x1,x2: real; // точки деления
y1,y2: real; // значения целевой функции в точках деления
n: integer; // число итераций
x,xn: real; // результат
 
function f(x:real):real; // целевая функция
begin
     Result:=x*cos(x) - sin(x);
end;
 
function d1(x:real):real; // производная первого порядка
begin
     Result:=-x*sin(x)-cos(x);
end;
 
function d2(x:real):real; // производная второго порядка
begin
     Result:=-x*cos(x);
end;
 
Begin
n:=0; // обнуляем число итераций
a:=-6;
b:=-3; // конец отрезка
x:=a; //начальное приближение
repeat
      inc(n);
      xn:=x;
      x:=x-d1(x)/d2(x);
until abs(x-xn)<=e;
writeln('Точка минимума: ', x);
writeln('Значение функции в точке минимума: ',f(x)); // середина интервала
writeln('Результат получен за ',n,' итераций.');
End.