Построение графика функции

Uses Graph;
 
var gd, gm,
    Xc, Yc, x, y,
    xMax256, yMax256, a, p:integer;
    st : string;
Begin
  p:=100;
  a:=60;
  gd:=detect;
  InitGraph(gd,gm,'d:\bp\bgi');
  xMax256:=GetMaxX;
  yMax256:=GetMaxY;
  Xc:=xMax256 div 2;
  Yc:=yMax256 div 2;
  SetFillStyle(1,White);
  Bar(0,0,xMax256-1,yMax256-1);
  SetColor(Black);
  Line(Xc,50,Xc,400);
  Line(50,Yc,600,Yc);
 
  Line(600-2,Yc-1,600-6,Yc-1);
  Line(600-2,Yc+1,600-6,Yc+1);
  Line(600-4,Yc-2,600-8,Yc-2);
  Line(600-4,Yc+2,600-8,Yc+2);
 
  Line(Xc-1,50+2,Xc-1,50+6);
  Line(Xc+1,50+2,Xc+1,50+6);
  Line(Xc-2,50+4,Xc-2,50+8);
  Line(Xc+2,50+4,Xc+2,50+8);
 
  OutTextXY(Xc+4,50,'y');
  OutTextXY(596,Yc+4,'x');
 
  SetLineStyle(SolidLn, 0, ThickWidth);
  Line(Xc,Yc+a,Xc+p,Yc);
  Line(Xc+p,Yc,Xc+p+40,Yc);
  Line(Xc+p,Yc,Xc+p+40,Yc);
  x:=50;
  y:=Yc-Round(a/p*x);
  x:=Xc-p-x;
  Line(x,y,Xc,Yc+a);
  Str(p,st);
  st:='-'+st;
{  OutTextXY(Xc-p-20,Yc+10,st);}
  OutTextXY(Xc-p-20,Yc+4,'-p');
  OutTextXY(Xc+p+4,Yc+4,'p');
  Str(a,st);
  st:='-'+st;
{  OutTextXY(Xc+8,Yc+a,st);}
  OutTextXY(Xc+8,Yc+a,'-a');
  OutTextXY(Xc+80,Yc+a,'f(X)');
  SetLineStyle(SolidLn, 0, NormWidth);
  Line(Xc+78,Yc+a-4,Xc+50,Yc+a-26);
  ReadLn;
  CloseGraph;
End.