{$B-}
PROGRAM cprepsort(INPUT,OUTPUT);
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}
 {پ–                                                            پ–}
 {پ–           گ”  —‌  ‰ب  ٹw  Œ¤  ‹†                           پ–}
 {پ–                                                            پ–}
 {پ–    چu    ژt    –¼  پF  –é   ‹v   ’|   •v                   پ–}
 {پ–                                                            پ–}
 {پ–    ٹw  گ¶  ژپ  –¼  پF  ژO  ‘؛  ڈ»  ژq پAŒ´  “c  گگ  •ن     پ–}
 {پ–                                                            پ–}
 {پ–    ٹw گ¶ ڈط ”ش چ†  پF  ‚Q‚O‚r‚r‚P‚P‚S‚RپA‚Q‚O‚r‚r‚P‚Q‚R‚T  پ–}
 {پ–                                                            پ–}
 {پ–    ‘ه    ٹw    –¼  پF  “Œ    ٹC    ‘ه    ٹw                پ–}
 {پ–                                                            پ–}
 {پ–    ٹw •” ٹw ‰ب –¼  پF  —‌ ٹw •”   ڈî •ٌ گ” —‌ ٹw ‰ب        پ–}
 {پ–                                                            پ–}
 {پ–    ‰غ    ‘è    –¼  پF  REPLACEMENT SELECTION               پ–}
 {پ–                                                            پ–}
 {پ–    ژg  —p  Œ¾  Œê  پF  ‚o  ‚پ  ‚“  ‚ƒ  ‚پ  ‚Œ              پ–}
 {پ–                                                            پ–}
 {پ–    چى    گ¬    “ْ  پF  ‚P ‚X ‚W ‚U ”N ‚PŒژ                 پ–}
 {پ–                                                            پ–}
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}



TYPE
  heap_buff = PACKED ARRAY[1..20] OF INTEGER;

VAR
  infile,outfile :TEXT;
  i,data :INTEGER;

{
EXTERNAL PROCEDURE repsort(VAR infile,outfile :TEXT; len :INTEGER);
}
{$I B:REPSORT.SRC}

BEGIN
  ASSIGN(infile,'B:IN_REP');
  ASSIGN(outfile,'B:OUT');
  RESET(infile);
  REWRITE(outfile);
  WRITE(lst,'buffer size?');
  READLN(i);
  repsort(infile,outfile,i);
  close(infile);
  close(outfile)
END.
