Помогите построить блок схему по исходнику, Массивы Опции

[Teenager]

Помоните в построении блок=схемы:
Program NumberSix;
uses crt;
var a:array [1..3,1..3] of Integer;
b:array [1..3,1..3] of Integer;
c:array [1..3,1..3] of Integer;
i,j:Integer;

Begin
randomize;

For i:=1 to 3 do
For j:=1 to 3 do
Begin
a[i,j]:=random(30);
b[i,j]:=random(30);
c[i,j]:=a[i,j]+b[i,j];
end;
clrscr;

Writeln ('Matrix A');
for i:=1 to 3 do begin
for j:=1 to 3 do
write (a[i,j]:3,' ');
writeln;end;

Writeln ('Matrix B');
for i:=1 to 3 do begin
for j:=1 to 3 do
write (b[i,j]:3,' ');
writeln;end;


Writeln ('Summa dvuh matric ravna');
for i:=1 to 3 do begin
for j:=1 to 3 do
write (c[i,j]:3,' ');
writeln;end;

End.