Модули

[kuzmich]

привет всем!...
помогите решить задачку с модулями!
Реализовать в виде модуля набор подпрограмм для выполнения следующих действий над матрицами: 1) нахождение суммы элементов каждой строки данной матрицы; 2) нахождение наибольшего элемента главной диагонали; 3) вывод матрицы в общепринятом виде. Используя этот модуль решить следующую задачу: найти максимальное значение среди сумм элементов каждой строки заданной матрицы. Найти наибольший элемент главной диагонали и заменить его на 0. Полученную матрицу вывести в общепринятом виде.

зарание спасибо!

у меня есть один модуль, он похож с моей задачи. здесь просто надо изменить сложение матриц:

Unit matrix;
interface
type matr=array [1..10,1..10] of integer;
procedure vvod(var s:matr; var n,m:integer;c:char);
procedure summ(a,b:matr;n,m:integer;var sm:matr);
procedure vyvod(var sm:matr;n,m:integer;c:string);
procedure imax(var sm:matr;max,n,m:integer);
implementation
procedure vvod;
var i,j:integer;
begin
writeln('Matrix ',c);
for i:=1 to n do begin
writeln('Vvedite ',i,'-yi r9d');
for j:=1 to m do
read(s[i,j]);
readln;
end;end;
procedure summ;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
sm[i,j]:=a[i,j]+b[i,j];
end;
procedure vyvod;
var i,j:integer;
begin
writeln('Matrix ',c);
for i:=1 to n do begin
for j:=1 to m do
write(sm[i,j]:5); writeln;
end;end;
procedure imax;
var i,j:integer;
begin
max:=0;
for i:=1 to n do
for j:=1 to m do
if sm[i,j]>max then
max:=sm[i,j];
writeln('max=',max);
end;end.