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

Type
  mas = Array [1..100] of Integer;
Var
  a: mas;
  i,n,mn: Integer;
{-------}
Procedure min(x: mas; n: Integer; var m: Integer);
var
  i: Integer;
begin
  m:=Maxint;
  For i:=1 to n do
  If x[i]<m Then
  m:=x[i];
end;
{-------}
BEGIN
Write('Введите кол-во элементов: ');
Readln(n);
For i:=1 to n do
begin
  a[i]:=Random(100);
  Write(a[i],' ');
end;
Writeln;
min(a,n,mn);
Writeln('MIN = ',mn);
Readln
END.

unit MyUnit;
 
interface
 
type
  mas = array [1..100] of integer;
 
procedure min(x: mas; n: integer; var m: integer);
implementation
 
procedure min(x: mas; n: integer; var m: integer);
var
  i: integer;
begin
  m := MAXINT;
  for i := 1 to n do
    if x[i] < m then
      m := x[i];
end;
end.

uses
  MyUnit;
 
var
  a: mas;
  i, n, mn: integer;
 
begin
  Randomize;
  Write('Введите кол-во элементов: ');
  Readln(n);
  for i := 1 to n do
  begin
    a[i] := random(100);
    Write(a[i], ' ');
  end;
  Writeln;
  min(a, n, mn);
  Writeln('MIN = ', mn);
  Readln
end.