Корни уравнения методом Хорд Pascal

Корни уравнения методом Хорд Pascal
В общем в очередной раз затупил... Объясните на словах или примером кода...Заранее спасибо...

Задание:

Составил тестовый пример в Exel и построил график на котором видно, что данное уравнение на промежутке [-2; 5] имеет три корня:
X1=-0,63436
X2=0,86953
X3=1,77118

Имеется код похожей задачи, который писал пол года назад:
Program Lab5_12; uses crt;

const eps=1.0E-5; {Точность 0,00001}

var a,b,c:real;
count:integer;

Function F(x:real):real;
Begin
F:=Sin(X+(Pi/3))-0.5*X; {Функция}
end;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

A:=-(Pi/6); {Левая граница отрезка}
B:=(5*Pi)/6; {Правая граница отрезка}
Count:=0; {Начальное значение кол-ва итераций}

Repeat
C:=A-((B-A)/(F(B)-F(A)))*F(A);

if (F(A)*F(C)) > 0 then A:=C
else B:=C;

Inc(Count); {Считаем кол-во итераций}
Until (Abs(F(C)) < = Eps); {Проверяем точность} Write('--------------------------------------------------------------------------------');
Writeln(' Найти корень уравнения методом Хорд');
Writeln(' Уравнение: Sin(X+Pi/3)-0.5X');
Writeln(' На промежутке: [-Pi/6; 5Pi/6]');
Writeln(' Точность: ', Eps:6:5);
Writeln(' Точное значение корня: 1.35204');
Writeln(' Вычисленное значение корня:', C:8:5);
Writeln(' Число итераций: ', Count);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.

Я так понимаю что в этой задачи должно быть две функции 0.5^x+1 и (x^2-1)^2 правильно? Как это грамотно записать?