Вывести на экран график функций (переделать готовую программу)

uses graphABC,crt;
function Y(x,e:real):real;
var n:integer;
s,t:real;
begin
if abs(x-1)<=e then s:=0
else
begin
n:=0;
t:=(x-1);
s:=t/(x+1);
while abs(t/((x+1)*(2*n+1)))>e do
begin
n:=n+1;
t:=t*sqr(x-1);
s:=s+t/((x+1)*(2*n+1));
end;
end;
Y:=2*s;
end;
function Z(x,b:real):real;
begin
Z:=exp(-x)+b;
end;
var xc,yc,n,i:integer;
e,b,xn,xk,dx,max,min,d,x,y1,mx,my:real;
s:string;
begin
write('b=');
read(b);
clrscr;
hidecursor;
e:=0.001;
xc:=30;
yc:=windowheight div 2;
line(0,yc,windowwidth-xc,yc);
line(xc,0,xc,2*yc);
xn:=0.1;
xk:=2;
dx:=0.001;
x:=xn;
max:=Y(x,e);min:=Y(x,e);
while x<=xk+dx/2 do
begin
if Y(x,e)>max then max:=Y(x,e);
if Z(x,b)>max then max:=Z(x,b);
if Y(x,e)<min then min:=Y(x,e);
if Z(x,b)<min then min:=Z(x,b);
x:=x+dx;
end;
if max>abs(min) then d:=max
else d:=abs(min);
mx:=(windowwidth -140)/(xk-xn);
my:=(yc-40)/d;
if d>xk then n:=round(d)
else n:=round(xk);
for i:=1 to n+1 do
begin
line(xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);
line(xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);
line(xc-3,yc-round(i*my),xc+3,yc-round(i*my));
line(xc-3,yc+round(i*my),xc+3,yc+round(i*my));
str(i,s);
textout(xc+round(i*mx),yc+10,s);
textout(xc-round(i*mx),yc+10,'-'+s);
textout(xc-15,yc-round(i*my),s);
textout(xc-15,yc+round(i*my),s);
end;
x:=xn;
while x<=xk+dx/2 do
begin
x:=x+dx;
setpixel(xc+round(x*mx),yc-round(Y(x,e)*my),clRed);
setpixel(xc+round(x*mx),yc-round(Z(x,b)*my),clGreen);
end;
setfontcolor(clRed);
textout(50,10,'График функции разложения в ряд Тейлора');
setfontcolor(clGreen);
textout(50,30,'График функции Z=exp(-x)+b');
setfontcolor(clBlack);
textout(50,50,'на интервале [0.1;2]');
end.

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.