Вывести на экран в графическом режиме графики двух функций

uses crt,graphABC;
function y(x,b:real):real;
begin
y:=exp(-x*x)+b
end;
function s(x,e:real):real;
var y,t:real;
    n:integer;
begin
n:=0;
t:=1;
y:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/n;
  y:=y+t
 end;
s:=y
end;
var xn,xk,x,dx,e,b,max,min,mx,my:real;
    x0,y0,n,i:integer;
    st:string;
begin
e:=0.0001;
xn:=-2;
xk:=2;
dx:=0.2;
repeat
write('-10<b<10 b<>0 b=');
read(b);
until(b>-10)and(b<10)and(b<>0);
hidecursor;
clrscr;
x0:=windowwidth div 2;
mx:=(x0-40)/xk;
if b>0 then
 begin
  y0:=windowheight-50;
  max:=y(0,b);
  min:=0;
 end
else
 begin
  max:=s(0,e);
  min:=y(xk,b);
  y0:=round(windowheight*max/(max-min));
 end;
if max>abs(min)then my:=(y0-40)/max
else my:=(windowheight-y0-20)/abs(min);
if max>abs(min) then n:=trunc(max)+1
else n:=trunc(abs(min))+1;
line(0,y0,windowwidth,y0);
line(x0,0,x0,windowheight);
for i:=1 to n do
 begin
  line(x0+round(i*mx/2),y0-3,x0+round(i*mx/2),y0+3);
  line(x0-round(i*mx/2),y0-3,x0-round(i*mx/2),y0+3);
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
  str(i/2:0:1,st);
  textout(x0+round(i*mx/2),y0+10,st);
  textout(x0-round(i*mx/2),y0+10,'-'+st);
  str(i,st);
  textout(x0-20,y0-round(i*my),st);
  textout(x0-30,y0+round(i*my),'-'+st);
 end;
 textout(x0+5,y0+10,'0');
 textout(windowwidth-20,y0-20,'X');
 textout(x0+10,10,'Y');
x:=xn;
setpencolor(clRed);
moveto(x0+round(x*mx),y0-round(s(x,e)*my));
while x<=xk+dx/2 do
 begin
  lineto(x0+round(x*mx),y0-round(s(x,e)*my));
  x:=x+dx
 end;
x:=xn;
setpencolor(clBlue);
moveto(x0+round(x*mx),y0-round(y(x,b)*my));
while x<=xk+dx/2 do
 begin
  lineto(x0+round(x*mx),y0-round(y(x,b)*my));
  x:=x+dx
 end;
setfontcolor(clRed);
textout(50,10,'f=s(x,e)');
setfontcolor(clBlue);
textout(2*x0-100,10,'f=y(x,b)');
end.