Быстрая сортировка

int Partition(int *A, int p, int r)
  { int i,j,x,y;
    x=A[p];
    i=p;
    j=r-1;
    while(true)
      {while(A[j]>=x && j>0)
        j--;
       while(A[i]<x)
        i++;
       if(i<j)
         { y=A[j];
           A[j]=A[i];
           A[i]=y;
         }
         else
          return j+1;
      //x=A[i+1];
      }
  }
 
 
void  QuickSort(int *A, int p, int r)    //5 3 2 6 4 1 3 7
  {int q;
    if(p<r-1)
      {q = Partition (A,p,r);
        if (q>p)
        {
          QuickSort(A,p,q);
          QuickSort(A,q+1,r);//вот здесь думаю ошибка, но ... исправлял по всякому и все равно не сортирует
        }
      }
   }

void TForm1::QuickSort(int *in,int a,int b)
{
int i,j,mode;
if(a>=b)return;
for(i=a,j=b,mode=1;i<j;mode>0?j--:i++)
        {
        if(in[i]>in[j])
                {
                int t = in[j];
                in[j]=in[i];
                in[i]=t;
                mode=-mode;
                }
        }
QuickSort(in,a,i-1);
QuickSort(in,i+1,b);
}