Блок-схема для процедуры

[ane]

Блок-схема для процедуры

помогите пожалуйста написать блок-схему к двум процедурам.
1)Procedure MaterialNaBrak ;
var i,j,k :integer;
mater,brig,brignum: integer;
Begin
Clrscr;
j:=1;
mater:=0;
readfileout1;
readfileout(np);
begin
for i:=1 to np do
begin
Begin
for k:=1 to 4 do
if products.ind=products1[k].ind then
begin
mater:=products1[k].rasx*products.razr;
break;
end;


2)Procedure MaterialPoBrigadam;
var i,j,k :integer;
sum,mater,brig,brignum: integer;

Begin
j:=1;
sum:=0;
mater:=0;
readfileout1;
readfileout(np);
for j:=1 to 2 do
begin
for i:=1 to np do

if j=products.ozy then
Begin
for k:=1 to 4 do
if products.ind=products1[k].ind then
begin
mater:=products1[k].rasx;
break;
end;
sum:=sum+(products.pzy*mater) ;
End ;
writeln('Materiala na izdeliya potratila ',j,' brigada ',sum,' gramm');
sum:=0;
end;

 

[Léon1]

Прога для рисования блок-схем - diamFC.