Организация модулей

program lab9;
uses crt;
type
matrica=array[1..5,1..5] of integer;
mas=array[1..5] of integer;
const
m:matrica=((55,38,64,18,-51),
          (-74,69,-42,58,71),
          (55,-79,81,76,-12),
          (65,-92,73,55,41),
          (61,44,68,-5,86));
  var i,j:integer;
  g:matrica;
  k:mas;
procedure write_matr(x:matrica);
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(x[i,j]:6,' ');
writeln;
end;
end;
procedure matr(var x:matrica);
var
i,j:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
x[i,j]:=random(21)-10;
end;
Function sum(x:matrica):integer;
var
i,j,s:integer;
begin
s:=0;
for j:=1 to 5 do
if j mod 2=1 then
for i:=1 to 5 do
s:=s+x[i,j];
sum:=s;
end;
procedure sums(x:matrica;var y:mas);
var
i,j,s:integer;
begin
for i:=1 to 5 do
begin  
s:=0;
for j:=1 to 5 do
s:=s+x[i,j];
y[i]:=s
end;
end;
begin
clrscr;
write_matr(m);
writeln('summa nechetnix stolbtcov ',sum(m),'.' );
matr(g);
write_matr(g);
sums(g,k);
for i:=1 to 5 do
writeln(k[i]);
readln;
end.

unit modul;
interface
type
matrica=array[1..5,1..5] of integer;
mas=array[1..5] of integer;
const
m:matrica=((55,38,64,18,-51),
          (-74,69,-42,58,71),
          (55,-79,81,76,-12),
          (65,-92,73,55,41),
          (61,44,68,-5,86));
procedure write_matr(x:matrica);
procedure matr(var x:matrica);
function sum(x:matrica):integer;
procedure sums(x:matrica;var y:mas);
implementation
procedure write_matr;
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(x[i,j]:6,' ');
writeln;
end;
end;
procedure matr;
var
i,j:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
x[i,j]:=random(21)-10;
end;
Function sum;
var
i,j,s:integer;
begin
s:=0;
for j:=1 to 5 do
if j mod 2=1 then
for i:=1 to 5 do
s:=s+x[i,j];
sum:=s;
end;
procedure sums;
var
i,j,s:integer;
begin
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 5 do
s:=s+x[i,j];
y[i]:=s
end;
end;
end.

program lab9;
uses modul,crt;
var i,j:integer;
  g:matrica;
  k:mas;
begin
clrscr;
write_matr(m);
writeln('summa nechetnix stolbtcov ',sum(m),'.' );
matr(g);
write_matr(g);
sums(g,k);
for i:=1 to 5 do
writeln(k[i]);
readln;
end.