PROCEDURE MERGE(M,N,L:INTEGER);
VAR O:INTEGER;
BEGIN
  I:=1; J:=1; K:=1;
  WHILE (I<=N) AND (J<=M) DO
    BEGIN
      IF A[I]<B[J] THEN
        BEGIN
          C[K]:=A[I];
          I:=I+1;
        END
        ELSE BEGIN
          C[K]:=B[J];
          J:=J+1;
        END;
      K:=K+1;
    END;
  IF I>N THEN
    BEGIN
      FOR O:=J TO M DO
        BEGIN
          C[K]:=B[O];
          K:=K+1;
        END
    END
    ELSE BEGIN
      FOR O:=I TO N DO
        BEGIN
          C[K]:=A[O];
          K:=K+1;
        END
    END;
END;