Metoda bąbelkowa

Metoda bąbelkowa for j:=n downto 2 do i:=1 to j-1 do if a[i] > a[i+1] then begin p:=a[i+1]; a[i+1]:= a[i]; a[i]:=p; end;