Levyathanus

program merge_sort;

const
    dim = 9;

var
    v: array [1..dim] of integer = (5, 9, 1, 3, 4, 6, 6, 3, 2);
    i: integer;

procedure MergeSort(min, max: integer);