получение обратной матрицы методом алгебраических дополнений

[Borsalino16]

Ошибка в 75 строке пишет ожидалось имя функции или процедуры,что не так ?

program math;
const n=3;
var A,B:array [1..n, 1..n] of integer;
var C,E,F:array [1..3] of integer;
var D:array [1..n,1..n] of integer;
i,j,k,z:integer;
S:real;
x:integer;
begin
writeln('введите матрицу A');
for i:=1 to n do
for j:=1 to n do
begin
readln(A[i,j]);
end;

writeln ('матрица A');
for i:=1 to n do
begin
for j:=1 to n do

write(A[i,j]);
writeln;
end;
S:=0;
begin
S:=A[1,1]*A[2,2]*A[3,3]+A[1,3]*A[2,1]*A[3,2]+A[1,2]*A[3,1]*A[2,3]-A[1,3]*A[2,2]*A[3,1]-A[1,2]*A[2,1]*A[3,3]-A[3,2]*A[1,1];
writeln('определитель матрицы=' ,s);
end;
{Minor}
B[1,1]:=a[2,2]*a[3,3]-a[3,2]*a[3,2];
B[1,2]:=a[2,1]*a[3,3]-a[2,3]*a[3,1];
B[1,3]:=a[2,1]*a[3,2]-a[2,2]*a[3,1];
B[2,1]:=a[1,2]*a[3,3]-a[1,3]*a[3,2];
B[2,2]:=a[1,1]*a[3,3]-a[1,3]*a[3,1];
B[2,3]:=a[1,1]*a[3,2]-a[1,2]*a[3,1];
B[3,1]:=a[1,2]*a[2,3]-a[1,3]*a[2,2];
B[3,2]:=a[1,1]*a[2,3]-a[1,3]*a[2,1];
B[3,3]:=a[1,2]*a[2,2]-a[1,2]*a[2,1];
writeln('матрица A');
for i:=1 to n do
begin
for j:=1 to n do
{Транспонирование}
write(B[i,j]);
writeln;
end;
for i:=1 to n do
begin
for j:=1 to n do
x:=B[i,j];
B[i,j]:=B[j,i];
B[j,i]:=x;
end;

writeln('транспонированная матрица=');
for i:=1 to n do
begin
for j:=1 to n do
write(B[i,j]);
writeln;
end;

{Matric C}
writeln('введите матрицу C=');
for i:=1 to 3 do
begin
readln(C[i]);
end;
writeln('матрица C=');
for i:=1 to n do
write(C[i]);
writeln;
{Умножение матрицы C*B}
D[1];i:=C[1]*B[1,1];
D[2];i:=C[2]*B[2,1];
D[3];i:=C[3]*B[3,1];

E[1];i:=C[1]*B[1,2];
E[2];i:=C[2]*B[2,2];
E[3];i:=C[3]*B[3,2];

F[1];i:=C[1]*B[1,3];
F[2];i:=C[2]*B[2,3];
F[3];i:=C[3]*B[3,3];

{Вывод матриц}
writeln('матрица X1=');
for i:=1 to 3 do
writeln(d[i]);
writeln('матрица X2=');
for i:=1 to 3 do
writeln(e[i]);
writeln('матрица X3=');
for i:=1 to 3 do
writeln(f[i]);
x1:=d(1)+d(2)+d(3);
x2:=e(1)+e(2)+e(3);
x3:=f(1)+f(2)+f(3);
writeln('x1=', x1, 'x2=', x2, 'x3=', x3)
end.

[FPaul]

Вы посмотрите, что записано в строке 75 и поймёте, что там нарушение синтаксиса.

[Borsalino16]

Можно поподробнее,я никак не соображу

[FPaul]

А как по вашему выглядит ваша 75-я строка?

[newerow1989]

Что за запись?

D[1];i:=C[1]*B[1,1];

[Borsalino16]

Блин, объясните пожалуйста детально ,как нужно правильно, я вообще не понимаю ошибки(

[FPaul]

Но хоть синтаксис паскаля вам знаком?
И вы хоть понимаете, что и как делает ваш код? В частности в 75 строке?
---------------------------
Мне тошно.
Сейчас начнётся: "сами мы не местные, из гуманитариев. Приехали на похороны (тьфу - зачёт), а деньги кончились. В прошлый раз препод был добрый, а сейчас - нет. Ничего не объясняет. А о книгах ничего не слышал".

Ждите помощи.