Паскаль. Уточнение корней методом половинного деления (дихотомии)

[nanoDesu]

Помогите, пожалуйста, решить задачку в Паскале, сдавать через 2 дня!!!

Выполните отделение корней уравнения с использованием графической оценки. Разработайте программу, выполняющую уточнение корней методом дихотомии на найденном промежутке с точностью до 0.0001. Выведите на экран значения корней на каждой итерации, при достижении требуемой точности вывести количество выполненных итераций и уточненное значение корня.

x+cos(x)=1

И если можно, то еще блок-схема бы не помешала. Заранее спасибо!