Составить блок схему и сделать 3 процедуры.

[Fender92]

Помогите плз.

Надо составить по данной программе блок схему и по блог схеме сделать 3 процедуры.

Вот сама программа.

Program fender;
var a:array [1..10] of integer;
i,i1,sv:integer;
begin
for i:=1 to 10 do begin
a[i]:=random (10);
write(a[i]);
end;
writeln;
for i:=1 to 10 do begin
for i1:=1 to 10 do begin
if a[i]<a[i1]then
begin
sv:=a[i1];
a[i]:=sv;
end;
end;
end;
for i:=1 to 10 do
write(a[i])
end.

[kakawkin]

на счет 3-ех процедур решили помочить коры ?