ПОмогите в составлении блок-схемы к программе
program clock;
uses graph,crt,dos;
var
d,b,r,r1,r2,rr,k,
x1,y1,x2,y2,x02,y02,x3,y3:integer;
X,Y,h,m,s,ss:word;
p:real;
I:string;
procedure strelki;
begin
setcolor(3);
setwritemode(XORput);
setlinestyle(solidln,0,thickwidth);
repeat
gettime(h,m,s,ss);
if m=0 then p:=0
else p:=m/120;
x2:=x1+round(0.7*r1*sin(2*pi*h/12+p));
y2:=y1-round(0.7*r1*X*cos(2*pi*h/12+p)/Y);
if s=0 then p:=0
else p:=s/600;
x02:=x1+round(0.75*r2*sin(2*pi*m/60+p));
y02:=y1-round(0.75*r2*X*cos(2*pi*m/60+p)/Y);
x3:=x1+round(r2*sin(2*pi*s/60));
y3:=y1-round(r2*X*cos(2*pi*s/60)/Y);
line(x1,y1,x2,y2);
line(x1,y1,x02,y02);
line(x1,y1,x3,y3);
line(x1,y1,x2,y2);
line(x1,y1,x02,y02);
line(x1,y1,x3,y3);
until keypressed;
end;
BEGIN
d:=detect;
initgraph(d,b,'..\BGI');
Begin
SetBkcolor(8);
x1:=getmaxX div 2;
y1:=getmaxY div 2 ;
getaspectratio(X,Y);
r:=round(3*getmaxY*Y/8/X);
r1:=round(0.7*r);
r2:=round(0.9*r);
circle(x1,y1,r);
circle(x1,y1,round(0.98*r)); setcolor(blue);
circle(x1,y1,round(0.975*r));setcolor(red);
circle(x1,y1,round(0.96*r));
settextstyle(defaultfont,horizdir,2);
for k:=0 to 59 do
begin
if k mod 5=0 then
rr:=r1; setcolor(white);
if k mod 5<>0 then
rr:=r2;
x02:=x1+round(r*sin(2*pi*k/60));
y02:=y1-round(r*X*cos(2*pi*k/60)/Y);
x2:=x1+round(rr*sin(2*pi*k/60));
y2:=y1-round(rr*X*cos(2*pi*k/60)/Y);
line(x02,y02,x2,y2);
setcolor(2);
str(k div 5,I);
if I='0' then I:='12';
if rr=r1 then
begin
outtextXY(round((x02+x2)/2)-8,round((y02+y2)/2)-8,I);
end;
end;
End;
strelki;
closegraph;
END.