Построение Блок-Схемы

[Bitte]

Помогите пожалуйста построить блок-схему к программе "построение диаграмм'!!!
program Kr_D;
Uses Graph;
Var a, S : Real; I : Byte; G, M : Integer;
Xc, Yc, R : Integer;
F : Text;
Alpha : Integer;
SAngle : Integer; Stroka : String;
Begin
Assign(F, '1.dat'); Reset(F);
S := 0;
While Not Eof(F) Do
begin Readln(F, a); S := S + a end;
reset(f); G := detect; M := 0;
initgraph(G, M, ''); Xc := GetMaxX Div 2; Yc := GetMaxY Div 2;
R := 100; SAngle := 0; i := 1;
While Not Eof(f) Do begin
Readln(F, a); Alpha := round(A / S * 360);
setcolor(i mod 16 + 1); setfillstyle(1, i mod 16 + 1);

sector(Xc, Yc, SAngle, SAngle + Alpha, R, R);
SAngle := SAngle + Alpha; i:= i + 1;

bar(Xc+200, Yc-250+(i-1)*20, Xc+220, Yc-250+(i-1)*20+15);
str(a:8:2, stroka);
outtextxy(Xc + 230, Yc — 250 + 5 + (i — 1) * 20, stroka) end;
readln; close(F); closegraph End.