merge.pas

this is a lp0 compilator new

PROGRAM Main;

PROCEDURE MergeSort ( VAR Key : SortArray;
		      N : INTEGER );

VAR 
   CopyKey	: SortArray;
   K		: INTEGER;

BEGIN { PROCEDURE MergeSort }
   FOR K := 1 to N DO
      CopyKey[K] := Key[K];
END;   { of Procedure MergeSort }

BEGIN { PROGRAM Main }

END.   { of PROGRAM Main }