Двухмерный массив нужно сформировать в процедуре, передать его в функцию и там подсчитать максимальные значения столбцов двухмерного массива. Затем вернуть подсчитанное значение в основную программу.

Тебе arj99 привел решение... Измени одну процедуру - будет то, что тебе нужно.