data=RandomReal[{-1,1},10]

heapSort=data//.{a___,b_,c_,d___}/;b>c->{c,a,b,d}

mSort=Sort[data]

heapSort===mSort