Надо упростить программу

Program zadnie1;
Uses GraphABC;
Type funI=function(x:real):real;
 
Function Fx(x:real):real;
begin
   Fx:=sqr(x)*sqr(x)*x-0.3*abs(x-1);
end;
 
Function Gx(x:real):real;
begin
   Gx:=sqr(sqr(x))-2*sqr(x)*x+x-1.5;
end;
 
Procedure CoordPl(a,b:real;F:funI);
Var x,y,h,ymin,ymax,Kx,Ky,h1,h2,xg1,yg2:real;
    x0,y0,n,xW,yH,oy,ox,i,xg,yg,nk:integer;
    sg1,sg2:string[6];
Function prx(x:real):integer;
begin
   prx:=round(x0+(x-a)*Kx);
end;
Function pry(y:real):integer;
begin
   pry:=round(y0+(ymax-y)*Ky);
end;
Function prxobr(xg:integer):real;
begin
   prxobr:=((xg-x0)/kx)+a;
end;
Function pryobr(yg:integer):real;
begin
   pryobr:=(y0-yg)/ky + ymax;
end;
Procedure YMaxYMinKxKy(a,b:real; var ymin,ymax,Kx,Ky:real);
begin
   n:=50;
   h:=(b-a)/n;
   ymin:=F(a); ymax:=ymin;
   x:=a;
   while x < b+h/2 do
   begin
      y:=F(x);
      if y < ymin then
         ymin:=y;
      if y > ymax then
         ymax:=y;
      x:=x+h
   end;
   
   x0:=0; xW:=WindowWidth;
   y0:=0; yH:=WindowHeight;
   Kx:=(xW-x0)/(b-a);
   Ky:=(yH-y0)/(ymax-ymin);
end;   
begin   
   YMaxYMinKxKy(a,b,ymin,ymax,Kx,Ky);
   {Выводятся оси}
   SetPenColor(ClRed);
   if ymin*ymax <= 0 then
   begin
      oy:=pry(0);
      Line(x0,oy,xW,oy);
      TextOut( xW-20,oy+10,'Ox')
   end;
   if a*b <= 0 then
   begin
      ox:=prx(0);
      Line(ox,y0,ox,yH);
      TextOut( ox+10,y0+20,'Oy')
   end;
   SetPenColor(ClBlack);
   nk:=10;
   h1:=(b-a)/nk;
   x:=a;
   xg:=prx(x); 
   xg1:=prxobr(xg);
   sg1:=FloatToStr(xg1);
   TextOut( xg+3,463,sg1);
   for i:=1 to nk do
   begin
      x:=x+h1; 
      xg:=prx(x); 
      If xg<>ox then 
         Line(xg,y0,xg,yH);
      xg1:=prxobr(xg);
      sg1:=FloatToStr(xg1);
      TextOut( xg+3,463,sg1);
   end;
   h2:=(ymax-ymin)/nk;
   y:=ymin;
   for i:=1 to nk do
   begin
      y:=y+h2;
      yg:=pry(y);
      If yg<>oy then 
         Line(x0,yg,xW,yg);
      yg2:=pryobr(yg);
      sg2:=FloatToStr(yg2);
      TextOut( 5,yg+1,sg2);
   end;
end;
 
Procedure GrFunc(a,b:real;F:funI);
Var x,y,Kx,Ky,ymax,ymin,h:real;
    x0,y0,xgp,ygp,i,n,xg,yg,xW,yH:integer;
Function prx(x:real):integer;
begin
   prx:=round(x0+(x-a)*Kx);
end;
Function pry(y:real):integer;
begin
   pry:=round(y0+(ymax-y)*Ky);
end;    
Procedure YMaxYMinKxKy(a,b:real; var ymin,ymax,Kx,Ky:real);
begin
   n:=50;
   h:=(b-a)/n;
   ymin:=F(a); ymax:=ymin;
   x:=a;
   while x < b+h/2 do
   begin
      y:=F(x);
      if y < ymin then
         ymin:=y;
      if y > ymax then
         ymax:=y;
      x:=x+h
   end;
   
   x0:=0; xW:=WindowWidth;
   y0:=0; yH:=WindowHeight;
   Kx:=(xW-x0)/(b-a);
   Ky:=(yH-y0)/(ymax-ymin);
end;   
begin
   YMaxYMinKxKy(a,b,ymin,ymax,Kx,Ky);
   x:=a;y:=f(a);
   xgp:=prx(x); ygp:=pry(y);
   for i:=1 to n do
   begin
      x:=x+h; y:=f(x);
      xg:=prx(x); yg:=pry(y);
      Line(xgp,ygp,xg,yg);
      xgp:=xg; ygp:=yg;
   end;
end;   
 
Var ft:text;
    a1,b1,a2,b2:real;
begin
   assign(ft,'Значения отрезков.txt');
   reset(ft);
   readln(ft,a1);
   readln(ft,b1);
   readln(ft,a2);
   readln(ft,b2);
   close(ft);
   CoordPl(a1,b1,Fx);
   SetPenColor(clBlue);
   GrFunc(a1,b1,Fx);
   SetPenColor(clBlack);
   readln;
   Window.Clear;
   CoordPl(a2,b2,Gx);
   SetPenColor(clGreen);
   GrFunc(a2,b2,Gx);
end.