Блок-схема сортировки одномерного массива

[roperd]

Доброго времени суток, уважаемые программисты, большая просьба, немного запутался в создании блок-схемы для процедуры сортировки массива, методом пузырька, код приведен ниже, заранее спасибо

var
a: array[0..9] of integer;
i,m,p,k: integer;
Next: boolean;
begin
i := High(a);
for k:=0 to i - 1 do
begin
Next := true;
for m := i-1 downto k do
If a[m] > a[m + 1] then
begin
p := a[m + 1];
a[m + 1] := a[m];
a[m] := p;
Next := false;
end;
If Next = true then exit;
end;
end;

[Mad_Cat]