设数组A[1]，A[2]，…，A[N]，已存入了数据，调用不

PROCEDURE   SORT1(N : INTEGER);
VAR
  I, J : INTEGER;
BEGIN
  FOR  I:=1  TO  N - 1  DO
    FOR  J:=1  TO  N  DO
      IF A[J] < A[I] THEN  SWAP (I, J)
END;

PROCEDURE   SORT2(I, N : INTEGER);
VAR
  J : INTEGER;
BEGIN
  IF  I = N  THEN  WRITE(A[N])
  ELSE FOR  J:=I + 1   TO  N  DO
  BEGIN
    IF  A[J] < A[I]  THEN  SWAP (I, J)
      WRITE(A[I]);
    SORT2(I + 1, N)
  END
END

PROCEDURE   SORT3(I, J : INTEGER);
VAR
  M : INTEGER;
BEGIN
  IF  I <> J   THEN
  BEGIN
    M := (I + J) DIV 2;
    SORT3(I, M);
    SORT3(M + 1, J);
    MERGE; { 假设合并的元素分别为P、Ｇ个,需要比较P+Ｇ次 }
  END;
END;