[Alegun]

Оффтоп:
ТС 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])); , здесь возможен выход за пределы диапазона типа интеджер

З.Ы. Капитан Очевидность это подтверждает :-)