Двумерный массив и блок-схема

[be-be]

Помогите, никак не могу нарисовать кусочек из программы. Дан двумерный массив из i строк и j столбцов.

wrk:=1;
for j:=3 to 4 do
for i:=8-j to 3+j do
begin
mas[i,j]:=wrk;
wrk:=wrk+1;
end;

for j:=5 to 6 do
for i:=3 to 8 do
if ((i<>5) and (i<>6)) then
  begin
  mas[i,j]:=wrk;
  wrk:=wrk+1;
  end;

for j:=7 to 8 do
for i:=j-3 to 14-j do
begin
 mas[i,j]:=wrk;
 wrk:=wrk+1;
 end;

Очень нужна блок-схема!!!!