PROCEDURE QSORT1 (FWARD,BWARD:RANGE);
   VAR MAE,USIRO:RANGE;
       NAKA,W:INTEGER;
   BEGIN
     MAE:=FWARD;
     USIRO:=BWARD;
     NAKA:=A[(MAE+USIRO) DIV 2];
   REPEAT
     WHILE A[MAE]<NAKA DO MAE:=MAE+1;
     WHILE A[USIRO]>NAKA DO USIRO:=USIRO-1;
     IF MAE<=USIRO THEN BEGIN
       W:=A[MAE];
       A[MAE]:=A[USIRO];
       A[USIRO]:=W;
       MAE:=MAE+1;
       USIRO:=USIRO-1
      END ;
   UNTIL MAE>USIRO;
   IF USIRO>FWARD THEN QSORT1 (FWARD,USIRO);
   IF MAE<BWARD THEN QSORT1 (MAE,BWARD)
  END ;