Исправить ошибки в Паскале, по теме: " Методы решения алгебраических и трансцендентных уравнений"

[Anton94.by]

Исправте ошибки в программе, и помогите дописать.

Задание:
Отделить один из корней уравнения

2sin(x-0.6)-1.5+x=0

Графически и уточнить его методом половинного деления с точностью ε=0.001

Program MN;
Uses Crt;
Const eps=0.0001;
Var x,y,delta,a,b:real;
n :Integer;
Function F(x:real):real;
Begin
F:=2sin(x-0.6)-1.5+x;
End;
Function F1(x:real):real;
Begin
F1:=;
End;
Function F2(x:real):real;
Begin
F2:=;
end;
Begin
Clrscr;
Textcolor(15);
Write('vvedite otrezok a,b-->');
Readln(a,b);
x:=a;
if F(x)*F(2)<0 then x:=b;
n:=0;
Repeat
y:=x-F(x)/F1(x);
delta:=abs(y-x);
n:=n+1;
x:=y;
Until delta<eps;
Writeln('x=',x:8:4);
Writeln('f(',x:8:4,')=',f(x):8:5);
Writeln('n=',n);
Repeat Until KeyPressed;
End.

Внизу вложен график функции.

[p51x]

начнем с того, что у вас нет программы
требуется не ИСПРАВИТЬ, а ДОПИСАТЬ за вас

пруф:

Function F1(x:real):real;
Begin
F1:=;
End;
Function F2(x:real):real;
Begin
F2:=;
end;