Удалить из массива все минимальные элементы. Считаем, что таких элементов может быть несколько

const nmax=100;
type mas=array[1..nmax]of integer;
var a:mas;
    i,n,min:integer;
procedure viv(x:mas;nn:integer;s:string);
var i:integer;
begin
 writeln(s);
 for i:=1 to nn do write(x[i]:3);writeln
end;
procedure udal(x:mas;ii:integer;var nn:integer);
var i:integer;
begin
 for i:=ii to nn-1 do a[i]:=a[i+1];
 nn:=nn-1
end; 
begin
 repeat
  write('количество элементов массива 0<n<=100 : ');readln(n);
 until (n>0)and(n<101);
 for i:=1 to n do
  begin
   a[i]:=random(5);
   if i=1 then min:=a[i]
          else if a[i]<min then min:=a[i]
  end;        
 viv(a,n,'исходный:');
 i:=1;
 while i<=n do
  begin
   if a[i]=min then begin udal(a,i,n);dec(i) end;
   inc(i)
  end;
 if n=0 then writeln('все элементы одинаковые, после удаления - не осталось')
        else viv(a,n,'после удаления минимальных:')
end.