Помогите решить пожалуйста В Turbo Pascal

[Dimkanikolas]

Найти минимальный элемент в матрице и заменить все нулевые элементы, имеющиеся в матрице, на значение произведения элементов той строки, где находится минимум