копирование массива

[Максикок]

Здравствуйте! значит мне нужно скопировать массив! в первом куске кода я заполняю массив рандомно во втором куске мне нужно использовать этот же массив то есть сделать копию его!
подскажите как это сделать!
int i=0,*vptr=0,*vptr1=0;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Series1->Clear();
Series2->Clear();
Panel1->Caption="";
int count,current=0;
count=(CSpinEdit2->Value-CSpinEdit1->Value)/CSpinEdit3->Value+1;//размер массива вводим в форме
for(int n=CSpinEdit1->Value;n<=CSpinEdit2->Value;n+=CSpinEdit3->Value)
{
vptr=new int[n];
assert(vptr!=0);
for(int j=0;j<n;j++)
vptr[j]=random(CSpinEdit4->Value-CSpinEdit5->Value+1)+CSpinEdit5->Value;//заполняем массиврандомно
if(CheckBox1->Checked){
StringGrid1->Cells[0][i]="Исходный массив";
for(int j=0;j<n;j++)
StringGrid1->Cells[j+1][i]=IntToStr(vptr[j]);
i++;}
current+=1;
ProgressBar1->Position=100*current/count;
delete[]vptr;
}
vptr=0;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Series1->Clear();
Series2->Clear();
Panel2->Caption="";
int count,current=0;
count=(CSpinEdit2->Value-CSpinEdit1->Value)/CSpinEdit3->Value+1;
for(int n=CSpinEdit1->Value;n<=CSpinEdit2->Value;n+=CSpinEdit3->Value)
{
vptr1=new int[n];
assert(vptr1!=0);
for(int j=0;j<n;j++)


if(CheckBox1->Checked){
StringGrid2->Cells[0][i]="Исходный массив";
for(int j=0;j<n;j++)
StringGrid2->Cells[j+1][i]=IntToStr(vptr1[j]);
i++;}
current+=1;
ProgressBar2->Position=100*current/count;
delete[]vptr1;
}
vptr1=0;

}

[Sparkman]

vptr1 = vptr

либо по циклу

for(int j=0;j<n;j++)
vptr1[j] = vptr[j]

[Максикок]

сделал так! но работает не так как надо! программа останавливается именно в этом месте vptr1[j]=vptr[j].