[v1s2222]

StrToIntDef - переведет из строки в число, а если возникнет исключение, то вернет число по умолчанию.
По твоему коду не понял одного - где изменяется переменная "i"? Ты всегда к ней обращаешься как к массиву: a[i], но i не где не изменяешь...