Bubble sort implemented in Pascal