Пожалуйста, помогите написать эту программу в Pascal!!!

Дана неквадратная матрица. Увеличить вдвое элементы столбца, если не менее двух сумм индексов столбца является простым числом (использовать подпрограммы)