Построить на экране график функции, и графически найти все возможные решения, не применяя численных методов

uses graph;
function F(x:real):real;
begin
F:=exp(x)+sqrt(1+exp(2*x))-2;
end;
const
x1=-1;{начало и конец графика в реальных значениях}
x2=0;
h=0.001;{шаг постороения графика}
var x,mx,my,k:real;
    x0,y0,i:integer;
    s:string;
begin
initgraph(x0,y0,'');
x0:=getmaxX-50;
y0:=getmaxY div 2;
mx:=(x0-20)/(x2-x1);
my:=(y0-20)/-f(x1);
line(20,y0,x0,y0);
line(x0,0,x0,getmaxY);
outtextXY(x0+10,y0,'0');
outtextXY(20,y0-20,'X');
outtextXY(x0-20,10,'Y');
for i:=1 to 10 do
 begin
  line(x0-round(i/10*mx),y0+3,x0-round(i/10*mx),y0-3);
  line(x0-3,y0-round(i/10*my),x0+3,y0-round(i/10*my));
  line(x0-3,y0+round(i/10*my),x0+3,y0+round(i/10*my));
  str(i/10:0:1,s);
  outtextXY(x0-round(i/10*mx),y0+10,'-'+s);
  outtextXY(x0+10,y0-round(i/10*my),s);
  outtextXY(x0+10,y0+round(i/10*my),s);
 end;
x:=x1;
while x<=x2 do
 begin
  putpixel(x0+round(x*mx),y0-round(f(x)*my),12);
  if f(x)*f(x+h)<=0 then k:=x+h/2;
  x:=x+h
 end;
setcolor(9);
setfillstyle(1,9);
fillellipse(x0+round(k*mx),y0,2,2);
str(k:0:4,s);
outtextXY(x0+round(k*mx),y0+100,'x='+s);
readln
end.