Оффтоп:
ТС
hsMapk, вы поакуратнее с выражениями-то будьте - УК
icWasya не смотря на репутацию (это временно) проверенный, надёжный товарищ, многих бедолаг, типа вас выручал - КЭПов у нас нет
По теме:
Замените ii:=ii+1; на Inc(ii); и summ:=summ+ StrToInt(M[k,ii] + M[ii,kk]); на Inc(summ, StrToInt(M[k,ii]) + StrToInt(M[ii,kk])); , здесь возможен выход за пределы диапазона типа интеджер
З.Ы. Капитан Очевидность это подтверждает :-)