Ошибка в процедуре

SturmTeoremResult:=proc(A::Vector,M)
 local D,n,i,j,k:
 n := Dimension(A):
D := Matrix([], n+2, 2*round(M)+1):
  for i from 2 to n+1 do 
     for j to 2*round(M)+1 do D[1, j] := j-round(M)-1;
   if subs(x = j-round(M)-1, A[i-1]) > 0 then D[i, j] := "+" end if;
   if subs(x = j-round(M)-1, A[i-1]) <= 0 then D[i, j] := "-" end if;
     end do:
end do:
 
for j from 1 to (2*round(M)+1) by 1 do
   k := 0:
     for i from 2 to n  by 1 do 9     
       if (D[i,j]="-") and (D[i+1,j]= "+") then k:=k+1: fi:         
    od:
   D[n+2, j] := k:
od:
 RETURN(D):
end proc:

restart; 
s := sturmseq(x^3-x^2-10*x-8, x); 
sturm(s, x, -infinity, infinity)

restart; 
with(LinearAlgebra); 
 
SturmTR := proc (A::Vector, M) 
local d, n, i, j, k, m; 
 
n := Dimension(A);
m := round(M); 
d := Matrix([], n+2, 2*m+1); 
 
for i from 2 to n+1 do 
 for j to 2*m+1 do 
  d[1, j] := j-m-1; 
  d[i, j] := ifelse(0 < subs(x = j-m-1, A[i-1]), "+", "-") 
end do end do; 
 
for j to 2*m+1 do 
 k := 0; 
 for i from 2 to n do 
  if d[i, j] = "-" and d[i+1, j] = "+" then k := k+1 end if; 
  if d[i, j] = "+" and d[i+1, j] = "-" then k := k+1 end if 
 end do; 
 d[n+2, j] := k 
end do; 
 
RETURN(d);
end proc;