Найти один из корней уравнения

[RfG]

Найти один из корней уравнения e^x+x+1=0 с точностью 0,001 двумя известными методами и сравнить полученные результаты.
Пробовал таким образом:

uses crt;
function F(x:real):real;
begin
   F:=exp(x)+x+1;
end;
function Dihot(a,b,eps:real):real;
var c:real;
begin
{метод половинного деления - дихотомия}
repeat
 c:=(a+b)/2;
 if F(a)*F(c)<=0 then b:=c
 else a:=c;
until b-a<eps;
Dihot:=(a+b)/2;
end;
function Iter(a,b,eps:real):real;
var n,i:integer;
    x,x1,x2,f1,f2:real;
begin
{метод простой итерации}
n:=round((b-a)/eps);
x1:=a; f1:=F(x1);
for i:=1 to n do
  begin
   x2:=x1+(b-a)/n;
   f2:=F(x2);
   if f1*f2 <= 0 then x:=(x2 + x1)/2;
   x1:=x2;
   f1:=f2;
  end;
Iter:=x;
end;
var a,b,eps:real;
begin
clrscr;
writeln('Нахождение корня уравнения exp(x)+x+1=0':55);
writeln('на интервале [1;2]':40);
writeln('методами дихотомии и простой итерации':45);
writeln;
writeln;
a:=1;
b:=2;
eps:=0.001;
writeln('Метод дихотомии x = ',Dihot(a,b,eps):0:5);
writeln('Метод итераций  x = ',Iter(a,b,eps):0:5);
readln
End.

[mMAg]

Ну пробовал. А в чём вопрос то? Или у вас что-то не работает и вам лень самостоятельно отладить? Тут, наверно, дураков полно, которые отладкой вашего кода желают заняться...