combsort.pas