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

uses crt;
const
  n=3;
var
  a:array [1..n,1..n] of integer;
  maxar:array [1..n] of integer;
  i,j,max:integer;
begin
  writeln('Исходная матрица:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  writeln('------------------');
  {определяем максимальные элементы}
  for i:=1 to n do
  begin
    max:=a[i,1];
    for j:=1 to n do
      if a[i,j]>max then
        max:=a[i,j];
    writeln(max);
    maxar[i]:=max
  end;
  max:=maxar[1];
  for i:=1 to n do
  begin
    writeln('Максимальный элемент ',i,' строки = ',maxar[i]);
    if maxar[i]<max then
      max:=maxar[i]
  end;
  writeln('В данной матрице наименьший из максимальных это ',max)
end.

unit matrica;
interface
const
  n=3;
type matr=array [1..n,1..n] of integer;
procedure Vvod(var mt:matr);
procedure MinMax(mt:matr;var min:integer);
implementation
procedure Vvod;
var
i,j:integer;
begin
  writeln('Исходная матрица:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      mt[i,j]:=random(8)-4;
      write(mt[i,j]:4);
    end;
    writeln
  end;
  writeln('------------------');
end;
procedure MinMax;
var i,j,max:integer;
begin
 {определяем максимальные элементы}
 min:=maxint;
 for i:=1 to n do
  begin
    max:=mt[i,1];
    for j:=1 to n do
    if mt[i,j]>max then
    max:=mt[i,j];
    writeln('Максимальный элемент ',i,' строки = ',max);
    if max<min then min:=max;
  end;
 writeln('В данной матрице наименьший из максимальных это ',min);
end;
end.

uses crt,matrica;
var
  a:matr;
  min:integer;
begin
clrscr;
Vvod(a);
MinMax(a,min);
readln
end.