не усложнял бы и сделал сложение строк
по одному символу с конца в начало перебераешь и в новую строку добавляеш, одну переменную оставь для числа в уме
и хорошобы отдельной процедурой\функцией
этот щас слишком запутаный
где setlength наверно надо и dlina_first менять sample непонятно что такое
а по теме когда передаеш параметр как var он передается указателем
и когда summ(a, a) то и first и second указывают на одно место
|