Удалить минимальный элемент одномерного массива А[1..7] — Pascal(Паскаль)

const
n=7;
var
i,imn,m:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');
m:=n;
    imn:=1;
    for i:=1 to m do
     if a[i]<a[imn] then imn:=i;
     
    if (imn=m) then m:=m-1
      else
     begin
      for i:=imn to m-1 do
       a[i]:=a[i+1];
      m:=m-1;
     end;

writeln('-------');

for i:=1 to m do
  write(' ',a[i]:3);
writeln();
end.