Удалить из одномерного целочисленного массива ненулевых элементов все максимальные элементы.

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
function Max(a:mas;n:integer):integer;
var i,mx:integer;
begin
mx:=a[1];
for i:=2 to n do
if a[i]>mx then mx:=a[i];
Max:=mx
end;
function Min(a:mas;n:integer):integer;
var i,mn:integer;
begin
mn:=a[1];
for i:=2 to n do
if a[i]<mn then mn:=a[i];
Min:=mn
end;
procedure Vvod(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Введите размер исходного массива от 2 до ',nmax div 2,' n=');
readln(n);
until n in [2..nmax div 2];
for i:=1 to n do
a[i]:=1+random(10);
end;
procedure Vyvod(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure Udl(var a:mas;var n:integer;x:integer);
var i,j:integer;
begin
i:=1;
while i<=n do
if a[i]=x then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1
end;
procedure Vstav(var a:mas;var n:integer;x:integer);
var i,j:integer;
begin
i:=n;
while i>=1 do
if a[i]=x then
 begin
  n:=n+1;
  for j:=n downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=0;
  i:=i-1
 end
else i:=i-1
end;
var a:mas;
    n,mn,mx:integer;
begin
clrscr;
randomize;
Vvod(a,n);
writeln('Исходный массив');
Vyvod(a,n);
mx:=Max(a,n);
writeln('Максимальный=',mx);
mn:=Min(a,n);
writeln('Минимальный=',mn);
Udl(a,n,mx);
writeln('Удаление максимальных');
Vyvod(a,n);
Vstav(a,n,mn);
writeln('Вставка 0 после минимальных');
Vyvod(a,n);
readln
end.