Сформировать отдельный модуль

unit modul;
interface
const nmax=100;
type mas=array[1..nmax] of integer;
var n,k:integer;
procedure min(a:mas;var zmn,imn:integer);
procedure max(a:mas;var zmx,imx:integer);
implementation
procedure min(a:mas;var zmn,imn:integer);
var i,mn:integer;
begin
imn:=1;
zmn:=a[1];
mn:=abs(k-a[1]);
for i:=2 to n do
if abs(k-a[i])<mn then
 begin
  mn:=abs(k-a[i]);
  zmn:=a[i];
  imn:=i
 end;
writeln('Наиболее близкий элемент номер ',imn,' равен ',zmn)
end;
 
procedure max(a:mas;var zmx,imx:integer);
var i,mx:integer;
begin
imx:=1;
zmx:=a[1];
mx:=abs(k-a[1]);
for i:=2 to n do
if abs(k-a[i])>mx then
 begin
  mx:=abs(k-a[i]);
  zmx:=a[i];
  imx:=i
 end;
writeln('Наиболее далекий элемент номер ',imx,' равен ',zmx)
end;
end.

uses crt,modul;
var a:mas;
    i,imn,mn,imx,mx:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;
writeln;
write('Введите число для поиска k=');
read(k);
min(a,mn,imn);
max(a,mx,imx);
end.