Блок-схема (да так тупо, не смейтесь! :))

[cudalover]

Помогите как составлять блок-схему к программе в которую включены процедуры:

Например к такой

program kur6;
uses crt;
type arr = array[1..10,1..10] of real;
var
p:arr;
s: real;
procedure init(var m: arr; n: integer);
var i,j: integer;
begin
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        m[i,j]:=random(20);
        write(m[i,j]:5:1);
        end;
    writeln;
    end;
writeln;
end;
function sum(m:arr; n:integer): real;
var i: integer;
rez: real;
begin
rez:=0;
for i:=1 to n do
    rez:=rez + m[i,i];
sum:=rez;
end;
begin
clrscr;
randomize;
init(p,10);
s:=sum(p,10);
writeln('Summ =',s:5:2);
readln;
end.

Мне ее тут помогали делать