Vladimir_S

Так, ну иметь с Вами дело, похоже, смысла нет: разбирались-разбирались в теме Количество компонент матрицы совпадающих по абсолютному значению с максимумом , и всё-таки этот абсолютно бессмысленный бред

imax:=1;
...
imax:=i;
imax:=j;

который следовало просто выбросить, благополучно перекочевал в процедуру seach_abs_max (между прочим, к слову, уж если Вы пользуетесь английским языком, то делать это желательно грамотно: "поиск" по-английски будет "search").

Теперь по процедуре substitution_meaning_massif. Где, скажите пожалуйста, там вообще хоть какой-нибудь цикл по i и j?! Отсутствует напрочь. Поскольку i и j определены в теле процедуры, им по умолчанию присвоены нулевые значения, да тем дело и кончается, а дальнейшее ветвление просто "висит в воздухе". Ну-ну...