PROCEDURE BUBBLE2(N:INTEGER);
VAR O,J,K,F:INTEGER;
BEGIN
  K:=N;
  F:=N;
  WHILE F>0 DO
    BEGIN
      K:=K-1;
      F:=0;
      FOR J:=1 TO K DO
       BEGIN
        IF L[J]>L[ J+1 ] THEN
        BEGIN
          O:=L[J]; L[J]:=L[ J+1 ]; L[ J+1 ]:=O;
          F:=J
        END
       END
    END;
END;