скалярное произведение матрицы

[Jeka14]

нужно получить скалярное произведение матрицы 4Х4

for i:=1 to 4 do
begin
write('Скалярное произведение ',i,' строки и столбца=');
s:=0;
for j:=1 to 4 do
s:=s+x[i,j]*x[j,i];
writeln(s);
end;
что то не так сделано,нужно как то через переприсваивание

[СтудПом]

Произведение матриц - помню, скалярное произведение векторов, тоже вроде есть. А вот скалярное произведение матрицы - нифига не помню.