Удалить из массива первый наименьший элемент

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,imn:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
 end;
writeln;
writeln;
imn:=1;
for i:=1 to n do
if a[i]<a[imn] then imn:=i;
writeln('Первый минимальный=',a[imn],' его индекс=',imn);
if imn=n then n:=n-1
else
 begin
  for i:=imn to n-1 do
  a[i]:=a[i+1];
  n:=n-1;
 end;
writeln('Удаление элемента:');
for i:=1 to n do
write(a[i]:3);
readln
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,mx:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(5);
  write(a[i]:3);
 end;
writeln;
writeln;
mx:=a[1];
for i:=1 to n do
if a[i]>mx then mx:=a[i];
writeln('Максимальный=',mx);
i:=1;
while i<=n do
if a[i]=mx then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[i]:=a[i+1];
    n:=n-1;
   end;
  end
else i:=i+1;
writeln('Удаление максимальных:');
for i:=1 to n do
write(a[i]:3);
readln
end.

program prog;
 
function max_element(a: array of integer): integer;
var
  i, m: integer;
begin
  m:= a[0];
  for i:= 1 to High(a) do
    if a[i] > m then m:= a[i];
  max_element:= m;
end;
 
{----------------}
 
function remove(var a: array of integer; val: integer): integer;
var
  i, j: integer;
begin
  j:= 0;
  for i:= 0 to High(a) do begin
    if a[i] <> val then begin
      a[j]:= a[i];
      inc(j);
    end;
  end;
  remove:= j;
end;
 
const
  N = 10;
var
  i, m, last: integer;
  a: array[1..N] of integer;
begin
  Randomize;
  for i:= 1 to N do begin
    a[i]:= Random(20);
    Write(a[i]:4);
  end;
 
  m:= max_element(a);
  WriteLn(' -> MAX: ', m);
 
  last:= remove(a, m);
  for i:= 1 to last do
    Write(a[i]:4);
 
  WriteLn;
  ReadLn;
end.