Mathematica-エラーで部分的割当てがシンボルでありませんとでるが有効な解決策が思いつかない

Question

前提・実現したいこと

対角成分がすべて同じ値のn個の10以上15以下次の上三角行列を作りたい

発生している問題・エラーメッセージ

部分的割当てでx[i]はシンボルではありません

該当のソースコード

upperA[n_] := (
  For[i = 1, i <= n, i++,
   t[i] = RandomInteger[{10, 15}]; (*t[i]に10から15の数を代入*)
   
   x[i] = RandomInteger[{1, 20}, {t[i], t[i]}];(*x[i]にt[i]*t[
   i]次の行列を代入*)
   
   For[l = 2, l <= t[i], l++,(*x[i]の対角成分をすべてx[i]の(1,1)成分にする*)
    
    x[i][[l, l]] = x[i][[1, 1]];
    ]
   ];
  
  Table[UpperTriangularize[x[k]], {k, n}](*上三角行列化*)
  )

試したこと

エラーコードのSet::setpsを調べてが,有効な手段としてx[i]をxiとあったが, iを回してもx1,x2...とはならない

エラーの部分

x[i][[l, l]] = x[i][[1, 1]]
ここであることはわかってます