составить процедуру перемножения матриц и умножения матрицы на вектор

[kolychii]

\\Pascal.вот моя попытка.при запуске выдет ошибку.прошу помогите решить проблему.может напутал что с вызовом процедуры.вариант задания 4 см.фото\\
Program L9;
const n=3;
type matr=array[1..n,1..n] of real;
vect=array[1..n] of real;
var a:matr;
i,k,j:integer;
c,b,d,x:vect;
f1,f2,f3:text;

Procedure Mult_matr_vect(x:vect;a:matr;var d:vect);
var k,i:integer;
begin
for i:=1 to n do
begin
d[i]:=0;
for k:=1 to n do
begin
d[i]:=d[i]+a[i,k]*x[k];
end;
end;
end;
begin
begin
writeln('введите элементы вектора');
for j:=1 to n do
readln(c[j]);
end;
writeln('введите элементы матрицы');
begin
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
end;
Mult_matr_vect(c,a,d);
writeln('ответ',d);
end.