replacement – Part specification is longer then depth of objekt

I want to solve the Funkton lns50 all the Values are Part 1 of an List

ri = ri((1))
rj = rj((1))
kij = kij((1))
yi = yi((1))
phm = phm((1))
ylm = ylm((1))
plm = plm((1))
yhm = yhm((1))
si = si((1))
ss = ss((1))
sf = sf((1))
mi = mi((1))
tsi = tsi((1))
(Delta)i = (Delta)i((1))
dri = dri((1))
drj = drj((1))
lij = lij((1))(CapitalDelta)
lns50 = Sqrt((
   (Out(12) (CapitalDelta)ri((1)))^2 + (Out(13) (CapitalDelta)rj((
        1)))^2
    + (Out(14) (CapitalDelta)kij((1)))^2 + (Out(
        15) (CapitalDelta)yi((1)))^2
    + (Out(16) (CapitalDelta)phm((1)))^2 + (Out(
        17) (CapitalDelta)ylm((1)))^2
    + (Out(18) (CapitalDelta)plm((1)))^2 + (Out(
        19) (CapitalDelta)yhm((1)))^2
    + (Out(20) (CapitalDelta)si((1)))^2 + (Out(
        21) (CapitalDelta)mi((1)))^2
    + (Out(22) (CapitalDelta)tsi((1)))^2 + (Out(
        23) (CapitalDelta)(Delta)i((1)))^2
    + (Out(24) (CapitalDelta)lij((1)))^2))

So i only need to change the “Position” of List by changing ((1)) to ((2))

ri = ri((2))
rj = rj((2))
kij = kij((2))
yi = yi((2))
phm = phm((2))
ylm = ylm((2))
plm = plm((2))
yhm = yhm((2))
si = si((1))
ss = ss((1))
sf = sf((1))
mi = mi((1))
tsi = tsi((2))
(Delta)i = (Delta)i((1))
dri = dri((1))
drj = drj((1))
lij = lij((1))
(CapitalDelta)
lns50 = Sqrt((
   (Out(12) (CapitalDelta)ri((1)))^2 + (Out(13) (CapitalDelta)rj((
        1)))^2
    + (Out(14) (CapitalDelta)kij((1)))^2 + (Out(
        15) (CapitalDelta)yi((1)))^2
    + (Out(16) (CapitalDelta)phm((1)))^2 + (Out(
        17) (CapitalDelta)ylm((1)))^2
    + (Out(18) (CapitalDelta)plm((1)))^2 + (Out(
        19) (CapitalDelta)yhm((1)))^2
    + (Out(20) (CapitalDelta)si((1)))^2 + (Out(
        21) (CapitalDelta)mi((1)))^2
    + (Out(22) (CapitalDelta)tsi((1)))^2 + (Out(
        23) (CapitalDelta)(Delta)i((1)))^2
    + (Out(24) (CapitalDelta)lij((1)))^2))

my Problem is, that Mathematica gives the Errormessage `Part specification is longer then depth of objekt┬┤

Please tell me if you got any clue what I need to tell Mathematica instead.

I tried ClearAll but it doesnt worked