построить блок схему тт

[kresik]

Uses graph, crt, dos;
Type
PointType = Record
x.y: Real;
end;
var
H,M,
S, Hund : Word;
Xc,
Yc,
I:	integer
p,p2,p3,p4,p5,p6 : PointType;
Procedure Dec2Polar(and,len:Real; var P:PointType;
Begin
And:=Ang-90;
p.x:=Xc+Len*cos(Ang*Pi/180);
p.y:=Yc+Len*sin(Ang*Pi/180);
end;
begin
i:=0;
Initgraph(i, i, ‘‘);
Xc:=GetMaxX div 2;
Yc:=GetMaxY div 2;
Setcolor(10);
Circle(Xc,Yc,Yc-90);
Setcolor(2);
Circle(Xc,Yc,3);
Setcolor(10);
Line(400,366,400,450);
Line(240,450,240,370);
Setcolor(14);
For i:=0 to 23 do
Begin 
Dec2Polar(i*15, Yc-100, P);
Circle(round(P.x), Round(P.y), 2+3*Byte(I mod 2 – 0));
End;
While not keypressed do 
Begin
SetColor(0);
Line(Round(p2.x), Round(p2.y), Round (p.x), Round (p.y));
Line(Round(p4.x), Round(p4.y), Round(p3.x), Round(p3,y));
Line(Round(p6.x),Round(p6.y), Round(p5.x),Round(p5.y));
GetTime(H, M , S, Hund);
Dec2Polar((S +Hund/100)*6, Yc-120,P);
Dec2Polar((S+Hund/100)*6, 5, P2);
Dec2Polar((M+S/60)*6, Yc-150,P3);
Dec2Polar((M+S/60)*6,  5, P4);
Dec2Polar((H+M/60)*30, Yc-150,P3);
Dec2Polar((H+M/60)*30, 5, P6);
SetColor(15);
Line(Round(P2.x), Round(P2.y), Round(P.x), Round(P,y));
SetColor(9);
Line(Round(P4.x), Round(P4.y), Round(P3.x), Round(P3.y));
Setcolor(7);
Line(Round(P6.x), Round(P6.y), Round(P5.x), Round(P5.y));
Delay(1000);
End;
CloseGraph;
End.