パスカル - マージ再帰によるソート

これはMerge sortの方法を使ってn個の整数の配列をソートできる再帰的手続きです

 プロシージャSort_Merge（変数t：TAB; g、d：整数）;
Var
ｍ、ｉ、ｊ、ｋ：整数。
s：TAB;
ベギン
d> gなら
ベギン
ｍ：＝（ｇ ＋ ｄ）Ｄｉｖ 2。
Sort_Merge（t、g、m）;
Sort_Merge（t、m + 1、d）;
iの場合：= m DownTo g Do
ｓ ［ｉ］：＝ ｔ ［ｉ］；
jの場合：= m + 1からdへ
s [d + m + 1 - j]：= t [j];
ｉ：＝ ｇ。 j：= d;
kに対して：= g dに対して
ベギン
s [i] <s [j]の場合
ベギン
ｔ ［ｋ］：＝ ｓ ［ｉ］；
ｉ：＝ ｉ ＋ １。
終わり
そうでなければ
ベギン
ｔ ［ｋ］：＝ ｓ ［ｊ］；
ｊ：＝ ｊ − １。
終わり;
終わり;
終わり;
終わり;