Подскажите, как составить блок-схему к графической программе.

uses  crt,graph;
const t=0.0001;
var gd,gm,xc,yc,i:integer;
    a,x,x1,y,m:real;
    s:string;
begin
clrscr;
write('a=');
readln(a);
write('x=');
readln(x);
    x1:=abs(x);
    gd:=0;
initgraph(gd,gm,'');
    xc:=getmaxX div 2;
    yc:=getmaxY div 2;
    m:=(yc-10)/x1;
    line(10,yc,getmaxX-10,yc);
    outtextXY(getmaxX-20,yc-15,'X');
    line(xc,10,xc,getmaxy-10);
    outtextXY(xc+5,20,'Y');
    outtextXY(xc+5,yc-10,'0');
    for i:=1 to round(x)+1 do
        begin
        str(i,s);
        line(xc+round(i*m),yc-2,xc+round(i*m),yc+2);
        line(xc-round(i*m),yc-2,xc-round(i*m),yc+2);
        outtextXY(xc+round(i*m),yc+10,s);
        outtextXY(xc-round(i*m),yc+10,'-'+s);
        line(xc-2,yc+round(i*m),xc+2,yc+round(i*m));
        line(xc-2,yc-round(i*m),xc+2,yc-round(i*m));
        outtextXY(xc-20,yc-round(i*m),s);
        outtextXY(xc-20,yc+round(i*m),'-'+s);
    end;
    x:=-x1;
    while x<=x1 do
        begin
        if x*x-a*a>t then
             begin
             y:=a*x + cos(b*x);
             putpixel(xc+round(x*m),yc-round(y*m),2);
             putpixel(xc+round(x*m),yc+round(y*m),2);
             end;
        x:=x+t;
        end;
    line(318,15,316,35);
    line(320,15,322,35);
    line(630,240,610,242);
    line(630,240,610,236);
    setcolor(2);
    settextstyle(7,1,1);
    outtextxy(600,300,'sklav Wizzy');
readkey;
 
end.