Одна из возможных версий процедуры, реализующей алгоритм "пузырька", представлена на языке программирования Pascal. Массив для сортировки X[n] и его размер n считаются глобальными переменными. Тип элементов массива - целый, (для системы Borland Pascal - Integer). Сортировка осуществляется по возрастанию.

    Procedure Puzirek;
   Var i, j: Integer;
            y: Integer;
   Begin
     For i := 2 to n do
          For j := n downto i do
                     If X[j-1] > X[j] then begin

                                                      y:=X[j-1];
                                                      X[j-1]:=X[j];
                                                      X[j]:=y
                                                  end;

   End;