Разработать библиотечный модуль из заранее созданной программы

uses crt;
type mas=array [1..100,1..100] of integer;
var x:mas;
m,n,o:integer;
function summa1(n:integer):integer;                   
 var i,o1:integer;
  begin
   o1:=0;
    for i:=1 to n do                       
     o1:=x[i,i]+o1;
      summa1:=o1;
   end;
function summa2(n:integer):integer;                   
 var g,j,o2:integer;
  begin
   o2:=0;
    g:=0;
     for j:=n downto 1 do                   
      begin
      g:=g+1;
      o2:=x[j,g]+o2;
      end;
     summa2:=o2;
     end;
begin
clrscr;
randomize;
   write('Vvedite kol-vo stolbcov ');      
    read(m);
   write('Vvedite kol-vo strok ');          
    read(n);
 begin
  for m:=1 to m do
   for n:=1 to n do
    x[m,n]:=random(10);                    
 end;
for m:=1 to m do
 begin
  for n:=1 to n do                        
   write(x[m,n]:3);
    writeln;
 end;
writeln('Summa elementov glavnoi diagonali ',summa1(n));      
writeln('Summa elementov pobochnoi diagonali ',summa2(n));
readln;
readln;
end.

unit unit3;
interface
type mas=array [1..100,1..100] of integer;
var x:mas;
    n:integer;
function summa1:integer;
function summa2:integer;
implementation
function summa1:integer;
var i,o1:integer;
begin
   o1:=0;
    for i:=1 to n do                       
     o1:=x[i,i]+o1;
      summa1:=o1;
end;
function summa2:integer;
var g,j,o2:integer;
begin
   o2:=0;
    g:=0;
     for j:=n downto 1 do                   
      begin
      g:=g+1;
      o2:=x[j,g]+o2;
      end;
     summa2:=o2;
end;
end.

uses crt,unit3;
var i,j:integer;
begin
clrscr;
randomize;
write('Vvedite razmer matricy n=');
readln(n);
for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     x[i,j]:=random(10);
     write(x[i,j]:3);
    end;
   writeln;
  end;
writeln('Summa elementov glavnoi diagonali ',summa1);
writeln('Summa elementov pobochnoi diagonali ',summa2);
readln
end.