Исправление кода программы

Поправить замечание учителя в коде прикрепленном ниже. Я не особо его понял, но преподаватель просит функцию FindSum объединить с процедурой Find и собственно поправить все вытекающие из этого изменения.

Само задание выглядит так:

Даны три двухмерных массива: A (na x na), B (nb x nb) и C (nc x nc). Для каждого массива A,B,C решить задачу из ЛР №8 и затем определить, в каком(их) из них наибольшее общее число инверсий. Если ни в одном из массивов нет инверсий, вывести сообщение об этом. Оформить в виде процедур ввод и вывод матрицы, всё решение задачи из ЛР №8 для отдельной матрицы, вывод созданного массива и, по желанию, поиск максимума. Размеры и значения элементов массивов вводить из одного общего или трех разных текстовых файлов, результат и исходные данные также вывести в пользовательский текстовый файл.

Собственно сама ЛР №8:

Дана матрица B, состоящая из n строк и n столбцов. Найти по отдельности число положительных и равных нулю элементов в совокупности тех строк матрицы, 1-й элемент которых больше 1, а также найти общую сумму элементов этих строк.