defint(intfeld[10000],anzahl);

VOIDTYPE #FillFeld(DEFINT(n));
BLOCK(
  DEFINT(nr),
  nr:=0,
  WHILE(nr <= n, BLOCK(
    intfeld[nr]:=rnd(),
    INC(nr))
  ),
  RETURN()
);

VOIDTYPE #QuickSort(DEFINT(l,r));
BLOCK(
  DEFINT(i,j,x,w),
  i:=l, j:=r,
  x:=intfeld[(l+r)/2],
  WHILE(i <= j, BLOCK(
    WHILE(intfeld[i] < x, INC(i)),
    WHILE(x < intfeld[j], DEC(j)),
    IF(i <= j, BLOCK(
      w:=intfeld[i],
      intfeld[i]:=intfeld[j],
      intfeld[j]:=w,
      INC(i), DEC(j))
    ))
  ),
  IF(l < j, QuickSort(l,j)),
  IF(i < r, QuickSort(i,r)),
  RETURN()
);

VOIDTYPE #PrintFeld(DEFINT(n));
BLOCK(
  DEFINT(nr),
  nr:=0,
  WHILE(nr <= n, BLOCK(
    PRINT("%i ",intfeld[nr]),
    INC(nr))
  ),
  RETURN()
);

VOIDTYPE #BubbleSort(DEFINT(n));
BLOCK(
  DEFINT(i,j,x),
  i:=1,
  WHILE(i <= n, BLOCK(
    j:=n,
    WHILE(j >= i, BLOCK(
      IF(intfeld[j-1] > intfeld[j], BLOCK(
        x:=intfeld[j-1],
        intfeld[j-1]:=intfeld[j],
        intfeld[j]:=x)
      ),
      DEC(j))
    ),
    INC(i))
  ),
  RETURN()
);

CLS();
PRINT("\nBitte Anzahl eingeben: "); scan("%i",anzahl);
FillFeld(anzahl);
QuickSort(0,anzahl);
@ BubbleSort(anzahl);
PrintFeld(anzahl).