Процедуры в delphi

[Espanol]

Помогите с решением, пожалуйста ;(
Составить процедуру, которая в матрице во всех строках со второй по предпоследнюю находит максимальный и минимальный элементы. Максимальный элемент помещается на место первого элемента строки, а минимальный – на место последнего элемента строки. Во всех столбцах матрицы со второго по предпоследний найти сумму и произведение элементов, сумму поместить на первое место в столбце, а произведение – на последнее место. Элементам, стоящим в вершинах матрицы присвоить ноль. Использовать составленную процедуру для матрицы B(l,m), l≤13, m≤14.