procedure JEDNOSMZAM(var A:TYPPOLE;  {Razene pole     }
                     N:integer       {Pocet prvku pole});
          {Procedura seradi zadane pole metodou jednosmerneho  }
          {zamenovani-verze bez zarazek                        }

var I,J : word;
    X : integer;

begin
  for I := 1 to N-1 do
    for J := 1 to N-1 do
      if A[J]>A[J+1] then begin
                            X := A[J];
                            A[J] := A[J+1];
                            A[J+1] := X
                          end;
end;  {Predura JEDNOSMZAM}