Pascal - Sortiraj po spajanju-rekurziji

Ovdje je rekurzivni postupak koji može sortirati niz od n cijelih brojeva pomoću metode sortiranja spajanja

 Postupak Sort_Merge (Var t: TAB; g, d: cijeli broj);
var
m, i, j, k: cijeli broj;
s: TAB;
Početi
Ako d> g zatim
Početi
m: = (g + d) Div 2;
Sort_Merge (t, g, m);
Sort_Merge (t, m + 1, d);
Za i: = m DownTo g Do
s [i]: = t [i];
Za j: = m + 1 Za d Do
s [d + m + 1 - j]: = t [j];
i: = g; j: = d;
Za k: = g Za d Do
Početi
Ako je s [i] <s [j] Zatim
Početi
t [k]: = s [i];
i: = i + 1;
Kraj
Drugo
Početi
t [k]: = s [j];
j: = j - 1;
Kraj;
Kraj;
Kraj;
Kraj;