Помогите найти ошибку (паскаль)

Должно показать матрицу и вектор (главная диоганаль)
Const N=2;
Var A:array[1..n,1..n] Of Real;
X: Array [1..n*n] Of Real;
I,j:integer;
Begin
Writeln;
For I:=1 To N Do
For J:=1 To N Do
Begin
A[i,j] := -2 * (j / 2 - 3.1) * (i - 3.9) + Exp(2.5*ln(i * J))- 10;
Write('a[',i,',',j,']=',a[i,j]:3:1,' ');
End;
Begin
J:=1;
X:=(a[1,1])*(a[2,2])
For I:=1 To N Do If A[i,i]<0 Then Begin X[j]:=a[i,i]; Inc(j);end;
For I:=1 To N Do If A[i,i]>=0 Then Begin X[j]:=a[i,i]; Inc(j);end;
Writeln(x[j]);
End;
Writeln;
Readln;
End.