Шейкер-сортировка пузырьком

[Biker29]

Помогите написать блок-схему к програмке. Программу написал, а блок-схемы писать не умею. Вот часть кода шейкер-сортировки. Или подскажите, пожалуйста сайт, где можно найти блок-схему сортировки:

begin
  lb:=1;
  ub:=n-1; 
Repeat
 for i:=1 to ub do
     begin
     if A[i]>A[i+1] then
      begin
       a0:=A[i+1];   
      A[i+1]:=A[i];
     A[i]:=a0;
 end;
end;
end;
  for i:=ub downto 1 do
    if A[i-1]<A[i] then
     begin
      a0:=A[i+1]; 
      A[i+1]:=A[i];
     A[i]:=a0;
    end;
   end;
  Until lb>ub
 end;

[cabss]

Введите в Яндексе "diamfc_postroitel_blok_shem" программка строит блок схемы для Pascal Delphi и выводит в ворд либо ексель

[Mad_Cat]