не могу найти ошибку

[trad]

Добрый день помогите найти ошибку в решении задачи
Условие:Дана матрица 4х4 найти скалярное произведение 2 ряда на 2 столбец.
Текст программы:

const int n=4;
typedef int Matr[n][n];
int Ska(Matr A)
{
int i,j,S=0;
for(i=0;i<n;i++)
for(j=0;j<n;j++)
S+=A[1][j]*A[i][1];
return S;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int j,i,S;
Matr A;
for(i=0;i<n;i++)
for(j=0;j<n;j++)
A[i][j]=StrToInt(StringGrid1->Cells[j][i]);
S=Ska(A);
Edit1->Text=IntToStr(S);
}

Ошибка!:

[trad]

Сам дам ответ на свой вопрос может кому нибудь понадобиться.Надо просто убрать FixedRows i FixedCols или массив объявить на 1 больше