Определить корень уравнения методом Ньютона

[VNS]

Всем привет
Прошу помочь с задачей на рекусрию.

Текст задачи:
Определить корень уровнения 2x+lg(2x+3)=1 методом Ньютона с погрешностью 10 в минус 4й степени на отрезке.

Я сделал эту задачу, но только не рекусрией, а препод сказал что не правильно и сказал переделывать что бы она решалась с помощью рекурсии, а как это сделать я не знаю
помогите пожалуйста!

Вот то что я сделал:
uses crt;
function F(x:real):real;
begin
F:=2*x+ln(2*x+3);
end;
function F1(x:real):real;
begin
F1:=(2+(1/(2*x+3)))*2;
end;
function Newton(x1,e:real):real;
var x2,c:real;
begin
x2:=x1;
repeat
c:=x2;
x2:=c-F(c)/F1(c);
until abs(x2-c)<e;
Newton:=x2;
end;
var c,eps:real;
begin
clrscr;
eps:=0.0001;
write('Vvedite nachalnoe priblizenie c=');
readln(c);
write('X=',Newton(c,eps):0:5);
readln
end.


Сделайте пожалуйста эту задачу с помощью рекурсии
Заранее спасибо!!!