Блок схема

[miko102]

как создать блок схему к программе:
program le;
uses crt;
var i, M, k, T,n, Gp: integer;
Kontr: array [1..1000] of integer;
Tc, raz, prov: array [1..1000] of real;
S, Prs, Prl, Prlob, Prsob, Zap, p, Br, KachD: real;
begin
clrscr;
randomize;
S:=0;
write ('Введите количество операций');
readln (n);
for i:= 1 to n do
begin
write ('Введите длительность операции',i,' ');
readln (Tc [i]);
S:= S + Tc[i];
end;
writeln ('Время выполнения одной детали= ', S);
p:=random;
writeln ('Вероятность брака',p);
writeln (' Введите количество операций контроля ');
readln (M);
for k:= 1 to M do
begin
write ('Введите номер операции после которой проходит ',k,' контроль ');
readln (Kontr [k]);
end;
Gp:= 0;
Prl:= 0;
Prs:= 0;
Prlob:= 0;
Prsob:= 0;
Zap:= 480 / Tc[1];
Zap:= trunc(zap);
raz[1]:=0;
prov[1]:=0;
for i:= 2 to n do
begin
raz[i]:= Tc[i] - Tc[i-1];
if raz [i-1] > 0
then prov[i]:= raz [i]
else prov [i]:= prov [i-1] + raz [i];
if prov [i] > 0 then
begin
Prl:= Prl + prov[i];
writeln ('Пролеживание на',i,' операции = ',prov[i]);
writeln;
end
else
begin
Prs:= Prs - prov[i];
writeln ('Простой на',i,' операции = ',prov[i]);
writeln;
end;
end;
writeln;
T:=480;
writeln ('Количество запущенных деталей',Zap);
writeln;
Gp:= trunc((480-S) / (Prl+Tc[1])+1);
writeln ('Выпущенных деталей всего', Gp);
Br:= trunc(Gp*p/100);
Writeln ('Размер брака ', Br);
writeln;
KachD:= trunc(Gp-Br);
writeln ('Количество набракованных деталей',KachD);
writeln;
Prsob:= (Gp-1)*Prs;
writeln ('Простоев за смену',Prsob);
writeln;
for i:=1 to Gp-1 do Prlob:= Prlob + Prl*i;
writeln ('Пролеживаний за смену',Prlob);
readkey;
end.

[Vanta11a]

http://ufacomputer.ru/node/7