Так нечего велосипед изобретать, смысл использовать 3 одноуровневых массива.... мой код тебе подойдет в самый раз...
P.S. Индексация Строк и Столбов StringGrid начинается с "0" , то цикл будет у тебя
И еще, если тебе сумму надо найти, так чего ты умножаешь значения?
--------------------------
И если ты так хочешь, чтоб твой код работал, то индекс j должен быть не real, а integer!