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

program dihotomia;
label 1,2;
var a, b, eps, del, x, x1, x2, xmin, fmin: real;
function f(x:real):real;
begin f:=x*cos(x)-2*sin(x); end;
begin
writeln ('Введите a,b,eps');
readln (a,b,eps);
del:=0.0001*eps;
1: if abs (b-a)<=eps then
begin
xmin:=(a+b)/2;
writeln ('xmin = ',xmin);
writeln ('ymin = ',f(xmin));
goto 2
end;
x:=(a+b)/2;
x1:=x-del/2;
x2:=x+del/2;
if f(x1)=f(x2) then
begin
a:=x1;
b:=x2;
goto 1;
end;
if f(x1)<f(x2) then b:=x2 else a:=x1;
goto 1;
2: ;
end.

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.

const e=0.0001;
function F(x: real): real;
begin
  F:=x*cos(x)-2*sin(x);
end;
procedure dihotom(a,b:real; var x0:real;var n:integer);
var x,alfa, beta, fa, fb : real;
begin
n:=0;
repeat
x:=(a+b)/2;
inc(n);
alfa:=x-e;
beta:=x+e;
fa:=f(alfa);
fb:=f(beta);
if fa>fb then a:=x else b:=x;
until abs(b-a)<e;
x0:=(a+b)/2;
end;
var x0,a,b:real;
    n:integer;
begin
a:=-6;
b:=-3;
dihotom(a,b,x0,n);
writeln('x= ',x0:0:4, ' min=',f(x0):0:4,' iter=',n);
end.