Блок схема [Паскаль]

[Joowood]

Прошу помочь составить блок схему для программы

program laba6;
uses crt;
const n=3;
type mas=array[1..n,1..n,1..n] of integer;
procedure Matrix(var a:mas);
var i,j,k:byte;
begin
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
a[i,j,k]:=random(50);
for i:=1 to n do
 begin
  writeln('matrica',i);
  for j:=1 to n do
   begin
    for k:=1 to n do
    write(a[i,j,k]:4);
    writeln;
   end;
  writeln;
 end;
writeln;
end;
 
Function Chislo(a:mas;m:integer):boolean;
var i,j,k:byte;
begin
Chislo:=false;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if a[i,j,k]=m then Chislo:=true;
end;
var a:mas;
    m:integer;
begin
clrscr;
Matrix(a);
write('Vvedite chislo dlia poiska m=');
readln(m);
if Chislo(a,m) then write('Chislo ',m,' v massive estb')
else write('Chisla ',m,' v massive net');
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alter]

FCEditor для этого есть.
общее


Matrix


Chislo