Процедуры. Умножение матриц, векторов. Скалярное умножение. Надо найти ошибку

program matr;
const
  n=6;
type
  matrix=array[1..n,1..n]of real;
  vector=array[1..n]of real;
var
  finalresult,AxBy,Cxy,xBy,scalarproduct:real;
  A,B,C,m:matrix;
  x,y,v,v1,r,Ax,By,Cx:vector;
  i,j:integer;
  
   procedure vectormatrixmultiplicatin(m:matrix; v:vector );
    var i,k:integer;
    begin
      for i:=1 to n do 
        for k:=1 to n do
        r[i]:=m[i,k]*v[k]; 
     
    end;
    
   procedure vectormultiplication(v1:vector; v2:vector );
    var i:integer;
    begin
    scalarproduct:=0;
      for i:=1 to n do begin
        scalarproduct:=scalarproduct+v1[i]*v2[i];
        end;
    end;
 
BEGIN
  write('Введите вектор x ');
    for i:=1 to n do read(x[i]);
  write('Введите вектор y ');
    for i:=1 to n do read(y[i]);
randomize;
for i:=1 to n do begin
  for j:=1 to n do begin
    A[i,j]:=(random(500)/random(500));if random(20) mod 2=1 then A[i,j]:=-A[i,j];
    B[i,j]:=(random(500)/random(500));if random(20) mod 2=1 then B[i,j]:=-B[i,j];
    C[i,j]:=(random(500)/random(500));if random(20) mod 2=1 then C[i,j]:=-C[i,j];
  end;
end;
 
vectormatrixmultiplicatin(A,x); Ax:=r;
vectormatrixmultiplicatin(B,y); By:=r;
vectormultiplication(Ax,By);
AxBy:=scalarproduct;
vectormatrixmultiplicatin(C,x); Cx:=r;
vectormultiplication(Cx,y);
Cxy:=scalarproduct;
vectormultiplication(x,y);
xBy:=scalarproduct;
finalresult:=AxBy+Cxy/xBy;
writeln(finalresult);
 
end.