procedure OBOUSMZAM(var A:TYPPOLE;    {Razene pole     }
                    N:integer         {Pocet prvku pole});
          {Procedura seradi pole metodou obousmerneho zamenovani}

var I,J,M,R,K : INDEX;
    X : integer;

begin
  M := 2;
  R := N;
  repeat
    for J := R downto M do
      if A[J-1]>A[J] then begin
                            X := A[J-1];
                            A[J-1] := A[J];
                            A[J] := X;
                            K := J
                          end;
    M := K+1;
    for J := M to R do
      if A[J-1]>A[J] then begin
                            X :=A[J-1];
                            A[J-1] := A[J];
                            A[J] := X;
                            K := J
                          end;
    R := K-1;
  until M>R
end;  {Procedura OBOUSMZAM}