Hogy néz ki a folyamatábrája?

Ennek a pascal forráskódnak kellene a folyamatábráját megrajzolnom, de tanácstalan vagyok, légyszi valaki segítse!

program plus;

const m=13;

var a:array[1..m] of integer; i,paros, paratlan, kulonbseg:integer;

begin

randomize;

for i:=1 to m do a[i]:=random(50)+1;

for i:=1 to m do write(a[i],', ');

writeln;

paratlan:=0;

paros:=0;

for i:=1 to m do begin

if a[i] mod 2 =1 then paratlan+=a[i];

if a[i] mod 2 =0 then paros+=a[i];

end;

writeln('Paratlanok osszege: ',paratlan);

writeln('Parosok osszege: ',paros);

kulonbseg:=abs(paratlan-paros);

writeln('A paratlan és paros szamok abszolut ertekben vett kulonbsege: ' ,kulonbseg);

readln;

end.