Есть процедура на Pascal (посчитует суму в кажой строке матрицы)

uses crt;

var a:byte;
//-------Процедура-------\
procedure Sum(s:integer);
var i,j,n,m:byte;
a:array[1..10,1..10] of integer;
begin
For i:=1 to 10 do
Begin
For j:=1 to 10 do
Begin
a[i,j]:=random(100);
write(a[i,j]:4);
End;
writeln;
End;
For i:=1 to 10 do
Begin
s:=0;
For j:=1 to 10 do
if j mod 2 = 0 then s:=s+a[i,j];
writeln('Сумма в ',i,' строке = ',s);
End;
readln;
End;

//-------Программма-----\
begin
textcolor(Yellow);
Sum(a);
end.

Как написать ее с помощью модуля и поключить к программе?