Помогите составить блок-схему, пожалуйста

Помогите составить блок-схему, пожалуйста!

Program SpiralArray1;
uses crt;
const n = 6;
type
TMx = array[1..n,1..n] of integer;
Procedure Print(mx : TMx);
{Процедура вывода массива}
var
i,j : byte;
begin
writeln; writeln;
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i,j]:2,' ');
end;
end;
Procedure SpiralFill(var mx : TMx);
{Процедура заполнения массива по спирали}
var
i,j,c : byte;
begin
i := 1;
j := 1;
c := 0;
repeat
while (j = 1 + c) do
begin
readln(mx[i,j]); dec(i);
end;
{движение в направлении "юг-север"}
inc(j); inc(i);
until c > n div 2;
end;
var
m : TMx;
begin
clrscr;
SpiralFill(m);
Print(m);
readln;
End.