комбинаторика и теория вероятности

int koloda[152];
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i=0;i<52;i++)//заполняем массив
 {
  koloda[i]=i+1;
  Memo1->Lines->Add(IntToStr(koloda[i]));//и отображаем
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int p,a=0,x=0;
Memo1->Clear();
int j1=random(52);//1 подколода
int j2=52-j1;     //2 подколода
 
int i1=random(j1);//i1 часть j1
int i2=random(j2);//i2 часть j2
  for (p=i1;p<j1;p++)//подымаем 1 подколоду, и ложим в стопку j1-i1 карт
   {
    koloda[100+x]=koloda[p];
    x++;
   }
  for (p=i2;p<j2;p++)//подымаем 2 подколоду, и добавляем в стопку j2-i2 карт
   {
    koloda[100+x]=koloda[j1+p];
    x++;
   }
  for (p=0;p<i1;p++)//подымаем 1 подколоду, и ложим в стопку i1-0 карт
   {
    koloda[100+x]=koloda[p];
    x++;
   }
  for (p=0;p<i2;p++)//подымаем 2 подколоду, и добавляем в стопку i2-0 карт
   {
    koloda[100+x]=koloda[j1+p];
    x++;
   }
for (int y=0;y<52;y++)
 {
  koloda[y]=koloda[y+100];//перенос в начало массива
  Memo1->Lines->Add(IntToStr(koloda[y]));
 }