Уравнение методом секущей (Pascal)

[Jon_Morgan]

Нужно решить уравнение 0.1*x^2-ln(x)=0 на интервале [1, 2], с точностью
е=0.0001 методом секущей
Для метода секущей нужно использовать модуль
У меня постоянно выдает один ответ, и при том не правильный, не понимаю в чем ошибка

Код модуля:

unit metod;
Interface
type
  func=function (x:real):real;
  function secant (var x0, x:real; e:real; f:func):real;
Implementation
 function secant (var x0, x:real; e:real; f:func):real;
 var d, y, r:real;
 begin r:=x-x0; d:=f(x0);
 repeat
  y:=f(x);
  r:=r/(d-y)*y;
  d:=y;
  x:=x+r;
 until abs(r)<e;
 secant:=x;
 end; end.

Код программы:

program main;
uses metod;
{$F+}
function f(x:real):real;
begin
f:=0.1*sqr(x)-x*ln(x);
end;
{$F-}
var x0, x, e:real;
begin
writeln ('Введите значение начала и конца интеравала (x0, x)');
readln (x0, x);
writeln ('Введите значение точности (e)');
readln (e);
writeln ('Значение функции=', secant(x0,x,e,@f):6:2);
end.

[type_Oleg]

Так какая же функция?
Эта -

Сообщение от Jon_Morgan

уравнение 0.1*x^2-ln(x)=0

Или эта-

f:=0.1*sqr(x)-x*ln(x);

Они обе имеют корни на [1;2]. Разные конечно.

PS Вроде ваш secant работает. Только зачем имя функции @f , а не просто f ? При вызове secant.
И зачем var перед x,x0 в объявлении/описании secant? Можно и без него.