Проверка кода(паскаль)

[xxxartikxxx]

Задание:

Из матрицы A(a[1,1]=-24 ;a[1,2]=-16.5 ;a[2,1]=-14.2 ;a[2,2]=14) получить компоненты вектора X={xi}, i=1,2,...n,в качестве вектора принять главную диагональ матрицы , которая преобразована следующим образом: в начале каждой строки должны быть ее неотрицательные элементы, а в конце - отрицательные элементы (с сохранением порядка следования тех или иных элементов).

Cоnst N=2; 
 Var A:array[1..n,1..n] Of Real; 
 X: Array [1..n*n] Of Real; 
 X:vektor
 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; 
vektor:=(a[1,1])*(a[2,2]); 
writeln('vektor=');
 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.

Ошыбка в том что не показует и не считает вектор




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Stilet]

Ошыбка в том

Что ты русский язык не знаешь.

не считает вектор

Откуда такие обоснования?

не показует

А ты нигде не написал вывод вектора.
Где у тебя что-то типа for i:=1 to n do write(x[i]:5);

X: Array [1..n*n] Of Real;

Зачем тебе такой огромный размер для вектора, который должен принимать всего одну линию матрицы?