set i=1
set ii=0
set s=ы
loop
     set ii=i
     loop
          set fs[i]=fs[i]+s
          call BJDebugMsg(fs[1])
          call BJDebugMsg(fs[2])
          call BJDebugMsg(fs[3])
          set ii=ii-1
          exitwhen ii==0
     endloop
     set i=i+1
     exitwhen i>100
endloop

set i=1// индекс цикла 1
set ii=0// счтчик добавляемых s
set s="ы"// строка
loop
     set ii=i// сдесь я заношу в счетчик(ii) количество символов s в текущем fs[i]
     loop
          set fs[i]=fs[i]+s// добавляю s ii раз
          set ii=ii-1// 1 добавили, отнимает от счетчика
          exitwhen ii==0
     endloop
     set i=i+1// переходим к fs[2], где количество s должно быть равно i, добавляем в следующем ходе цикла
     exitwhen i>100
endloop
// итог должен быть таким:
//fs[i] должен иметь столько s, каков индекс массива

// короче говоря мне нужно чтобы цикл в массив строк fs забил строку"s" в fs[1]=1s, в fs[2]=2s и тд

set i=1
set s="ы"
loop
  set fs[i]=fs[i-1]+s
set i=i+1
exitwhen i>100
endloop

// даже так:
string s = "ы"
string ss = ""
set i=1
    loop
        set ss = ss+s
        set fs[i] = ss
        set i=i+1
        exitwhen i>100
    endloop
// всервно получается так:
//fs[1] = ы
//fs[2] = ы вместо ожидаемого ыы
//fs[3] = ыы вместо ожидаемого ыыы
//fs[4] = ыы вместо ожидаемого ыыыы и так далее

local integer i = 1
local string s = "ы"
local string array fs
loop
  set fs[i]=fs[i-1]+s
  call BJDebugMsg("fs["+I2S(i)+"]= "+fs[i])
set i = i + 1
exitwhen i>10
endloop