从Pascal语言转化过来的快排代码

void Qsort(long l,long r)
{
  long i,j,x,y;
  i=l; j=r; x= a[(l+r)/2];
  do
  {
    while (a[i]<x) ++i;
    while (x<a[j]) --j;
    if (i<=j)
    {
      y=a[i]; a[i]=a[j]; a[j]=y;
      ++i; --j;
      }
    }
  while(i<=j);
  if (l<j) Qsort(l, j);
  if (i<r) Qsort(i, r);
}