метод исключения

Ответ от Капитан Гугл[гуру]
Хотелось бы помочь, но мейл, как всегда, съел разметку с параметрами массивов, да и с именами переменных k, m1, b, a, p и процедур ProcA и bamslu как-то сложно разобраться.
Я бы сделал так:
- отдельно описал процедуры решения для обычных массивов;
- заменил обращения к массивам вызовом функций (например, вместо A[i,j]:=1 - SetValue(A,i,j,1), а x := A[i,j] на x:=GetValue(A,i,j))
- заменил функции работы с простыми массивами на функции для работы с экономными. Преобразование из экономного в обычный массив, т. о. , инкапсулировалось бы в этих функциях, и не надо было бы ломать голову 🙂