Update Sorts.pas

Причесал код, подправил отступы