блок схемы в Pascal

Народ помогите нариовать блок схемы (циклограммы) программ. Девушка учится , вернее пытается учиться, и нифга не понимаем, ни я ни она)

a:array[1..15] of integer;
i,prom,j,n:integer;
begin
writeln('vvedite 15 chisel massiva:');
for i:=1 to 15 do
read(a);
begin
n:=15;
for i:=2 to n do
for j:=n downto i do
if a[j-1]>a[j] then
begin
prom:=a[j-1];
a[j-1]:=a[j];
a[j]:=prom;
end;
end;
writeln('uporyadochniy massiv');
for i:=1 to 15 do
write(a,' ');
readln;
end.







a:array[1..15] of integer;
i,prom,j,n:integer;
begin
writeln('vvedite 15 chisel massiva:');
for i:=1 to 15 do
read(a);
begin
n:=15;
for i:=2 to n do
for j:=n downto i do
if a[j-1]>a[j] then
begin
prom:=a[j-1];
a[j-1]:=a[j];
a[j]:=prom;
end;
end;
writeln('uporyadochniy massiv');
for i:=1 to 15 do
write(a,' ');
readln;
end.

icq 324000058


Довольно срочно. Дам ЯД вознаграждение!
ПС админы, если не тут создал тему или что-то не так, не удаляйте плз. это ООЧЕНЬ важно. могут отчислить..(
Пол часа хоть пусть повисит? спасибо)

 

ну что, народ, помогите плз, уделите пару минут!! очень нужно!!