Ошибка в c++ form: Access violation at adress 00401E16 in module 'Project1.exe'. Read of adress A4F698D8

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::Button1Click(TObject *Sender) //кнопка для заполнения массива случайными числами
{ int n=4;
n=StrToInt(Edit1->Text);
if(n>10){
ShowMessage("Максимальное количество  10!");
n=10;
Edit1->Text = "10";
}
StringGrid1->ColCount=n;
for(int i=0; i<n;i++)
StringGrid1->Cells[i][0]=IntToStr(random(9));
 
}
 
void __fastcall TForm1::Button2Click(TObject *Sender) //кнопка для выполнения сортировки
{
const int x=10;
int ar[x],i,j,n;
int ar1[x][x];
int d=1, t=0;
 
for(int i=0;i<x;i++)
ar1[i][0]=StrToInt(StringGrid1->Cells[i][0]);
 
for(int z=0;z<3;z++)
{
t=0;
for(int i=0;i<x;i++)
{
int indexo4ik = (ar[i]/d)%10;
ar1[indexo4ik][i]=ar[i];
}
 
for(int i=0;i<x;i++)
{
for(int j=0;j<x;j++)
if(ar1[i][j]!=0)
{
ar[t]=ar1[i][j];
t++;
}
}
for(int i=0;i<x;i++)
for(int j=0;j<x;j++)
ar1[i][j]=0;
d*=10;
}
for(int i=0;i<x;i++)
StringGrid2->Cells[i][0]=IntToStr(ar1[i][0]);
}

for(int i=0;i<x;i++)
{
for(int j=0;j<x;j++)
if(ar1[i][j]!=0)
{
ar[t]=ar1[i][j];
t++; // вот это теоретически может быть выполнено x*x раз. т.е 100 раз. после 10 раза выход за пределы массива ar
}
}

if(ar1[i][j]!=0 && t < x)
{
    ar[t]=ar1[i][j];
    t++;
}