Модуль

[Lelia Frozen]

Мне нужно составить личный модуль, состоящий из 3-х подпрограмм.
1-я задача
{В матрице А (mxn) минимальные элементы каждой строки заменить порядковым номером этого элемента в строке.}

2-я задача
{В массиве D (n) сумму отрицательных элементов поставить на место минимального}

Summa :=0; min := D[1]; imin:=1;
if min < 0 then Summa:=min;
for i:=2 to n do
begin 
  if(D[i] < 0) then Summa:=Summa+D[i];
  if(D[i] < min) then begin imin:=i; min:=D[i]; end;
end;

3-я задача
Даны натуральное число n, действительные числа а1, …, аn. Получить max (а2, а4, …)

[Stilet]

А просто показать эти три программы ты можешь?
Покажи код а мы его в модуль засунем.