[@Rafa3L]

Код:

...
procedure sortirovka(var a,b:posl);
var
 t, i, j, left, right {, k}: integer;
 x: array[1..2*maxn] of integer;
begin
...