Создать модуль, который имеет процедуры вычитания элемента массива после максимума

unit modul;
interface
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure massiv(var a:mas;var n:integer);
procedure print(a:mas;n:integer);
procedure max(a:mas;n:integer;var imx:integer);
procedure min(a:mas;n:integer;var imn:integer);
procedure left(var a:mas;var n:integer;imx:integer);
procedure right(var a:mas;var n:integer;imx:integer);
procedure among(var a:mas;var n:integer;imn,imx:integer);
implementation
procedure massiv(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
a[i]:=-25+random(50);
clrscr;
end;
procedure print(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure max(a:mas;n:integer;var imx:integer);
var i:integer;
begin
imx:=1;
for i:=2 to n do
if a[i]>a[imx] then imx:=i;
writeln('Максимальный элемент=',a[imx],' его номер=',imx);
end;
procedure min(a:mas;n:integer;var imn:integer);
var i:integer;
begin
imn:=1;
for i:=2 to n do
if a[i]<a[imn] then imn:=i;
writeln('Минимальный элемент=',a[imn],' его номер=',imn);
end;
procedure left(var a:mas;var n:integer;imx:integer);
var i:integer;
begin
if imx=1 then writeln('Максимальный элемент первый, удаления нет')
else
 begin
  for i:=imx-1 to n-1 do
  a[i]:=a[i+1];
  n:=n-1;
  writeln('Удаление элемента перед максимальным');
  print(a,n)
 end
end;
procedure right(var a:mas;var n:integer;imx:integer);
var i:integer;
begin
if imx=n then writeln('Максимальный элемент последний, удаления нет')
else
 begin
  for i:=imx+1 to n-1 do
  a[i]:=a[i+1];
  n:=n-1;
  writeln('Удаление элемента после максимального');
  print(a,n)
 end
end;
procedure among(var a:mas;var n:integer;imn,imx:integer);
var i,j:integer;
begin
if abs(imx-imn)=1 then
writeln('Между максимальным и минимальным элементов нет, удаление невозможно')
else
 begin
  if imx<imn then
   begin
    j:=imn;
    imn:=imx;
    imx:=j
   end;
  for i:=1 to imx-imn-1 do
   begin
    for j:=imn+1 to n-1 do
    a[j]:=a[j+1];
    n:=n-1
   end;
  writeln('Удаление элементов между минимальным и максимальным');
  print(a,n)
 end
end;
end.

uses crt,modul;
var a,a1:mas;
    n,m,imn,imx:integer;
begin
randomize;
massiv(a,n);
writeln('Исходный массив:');
print(a,n);
max(a,n,imx);
min(a,n,imn);
a1:=a;
m:=n;
left(a1,m,imx);
a1:=a;
m:=n;
right(a1,m,imx);
among(a,n,imn,imx);
end.