найти ошыбку

[xxxartikxxx]

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]:6:5,' ');
end;
Begin
j:=1;
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.

[xxxartikxxx]

Сообщение от xxxartikxxx

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]:6:5,' ');
end;
Begin
j:=1;
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.

Ошибку выбивает неверное выражение в етом месте:
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;

[Sciv]

Запяточия, блин, поставь. Точки с запятой то есть. Сказал же уже в предыдущей теме. Там, где ругается - ищи и ставь.

И вообще, щас придет злой на тебя Stilet и заблокирует, ибо код надо оформлять кнопкой # над полем редактирования, к тому же одну и ту же тему по сути два раза открыл.

[xxxartikxxx]

Спасибо огромное