Schemat blokowy dla tablicy

Witam, mam dany taki program, prosiłbym o narysowanie do niego schematu blokowego, ponieważ nie znam się na tym jak robić je na tablicach. Dziękuję z góry za pomoc:)

type
Ttablica=array[1..3] of byte;

var
tab:Ttablica;
i,j,licznik1,licznik2:longint;
wynik:real;

begin
randomize;
for j:=1 to 1000000000 do
begin
licznik1:=0;
for i:=1 to 3 do
begin
tab[i]:=random(2);
if tab[i]=0 then inc(licznik1);
end;
if licznik1>0 then inc(licznik2);
{writeln('W ',i,' rzutach orzelek wypadl ',licznik1,' razy ');}
end;
wynik:=licznik2/j*100;
writeln('Prawdopodobienstwo wyrzucenia przynajmniej 1 orzelka w ',i,' rzutach');
writeln('przy wykonaniu ',j,' prob wynioslo ',wynik:2:3);
readln;
end.