Insertion sort implemented in Pascal