Вывод результатов в графическом режиме

program graphic;
uses graph, crt;
const
centerLn =2;
NormWight =1;
p: array [1..12] of real = (130.8, 138.6, 146.8, 155.6, 164.8, 174.6, 185.0, 196.0, 207.7, 220.0, 233.1, 246.9);
temp = 100;
var driver, mode, errorcode : integer;
    aaa, bbb, xm,ym, i : integer;
    x,y,a,b,h,mx,my : real;
    s,st1,st2,st3, xx, yy : string;
    h1, h2,k,n,r: word;
function f(x:real) : real;
begin
f:=(8-x)/(x+3);
end;
 
begin
writeln('vvesti znrchrniya granic po x');
readln(a,b);
 
for k:=0 to 3 do
 for n:=1 to 12 do
   begin
    sound(round(p[n]*(1 shl k)));
    delay(temp);
    Nosound
    end;
 
h:=0.002;
driver:=0;
initgraph(driver,mode,' ');
xm:=getmaxX div 2;
ym:=getmaxY div 2;
mx:=(getmaxX-40)/(b-a);
my:=5;
r:=round((b-a)/h);
setbkcolor(blue);
setcolor(green);
 
line(xm,20,xm,getmaxY-20);
line(20,ym,getmaxX-20,ym);
 
for i:=1 to 5 do
  begin
    line(xm+round(i*mx*0.4),ym-3,xm+round(i*mx*0.4),Ym+3); 
    line(xm-round(i*mx*0.4),ym-3,xm-round(i*mx*0.4),Ym+3);
    str(i*0.4:0:1,s);
    str(i*0.4:0:1,s);
    outtextXY(xm+round(i*mx*0.4)-15,ym+10,s);
    outtextXY(xm-round(i*mx*0.4),ym+10,'-'+s);
  end;
 
outtextXY(xm+5,ym+10,'0');
outtextXY(getmaxX-10,ym-10,'X');
outtextXY(xm-10,10, 'Y');
 
x:=a;
while x<=b do
 begin
  if abs(x+3)>0.1 then
   begin
    y:=f(x);
    putpixel(xm+round(mx*x), ym-round(my*y),white);
   end;
  x:=x+h;
 end;
 
readln ;
clearDevice;
setbkcolor(blue);
setcolor(white);
h1:=2;
h2:=2;
x:=a;
while x<=b do
 begin
  if abs(x+3)>0.1 then
   begin
   line(1, 1, 500, 1);
   str(x, xx);
   outtextxy(h1, h2, xx);
   y:=f(x);
   outtextxy(h1+200, h2, yy);
   line(500, 1, 500, h2+9);
   line(500, h2+9, 1, h2+9);
   h2:=h2+10;
   val(xx, x, aaa);
   val(yy,y, bbb);
   end;
  x:=x+h;
 end;
 
 closeGraph;
 readln;
end.

closeGraph;
 readln;
end.

 readln;
closeGraph;
end.