Удаление нескольких минимальных элементов из массива

Program rmv;
uses       crt;
const      n=6;
var         a:array[1..n] of integer;
              i,mn,km:integer;
 
Begin
for i:=1 to n do
Begin
write('Enter A[',i,']');
readln(a[i]);
End;
writeln;
writeln('Initial array');
for i:=1 to n do write(a[i],'  ');
writeln;
mn:=1;
for i:=2 to n do
of a[i]<a[mn] then mn:=i;
writeln('Minimal value is ',a[mn]);
km:=0;
for i:=1 to n do
Begin
if a[i]=a[mn] then km:km+1;
End;
writeln('Amount of minimal values is ',km);
for i:=1 to n-km do
write(a[i],'  ');
readln;
End.

Program rmv;
uses       crt;
var         a:array[1..100] of integer;
            n,i,j,mn:integer;
 
Begin
randomize;
n:=20;
writeln('Initial array');
mn:=maxint;
for i:=1 to n do
  begin
   a[i]:=random(10);
   write(a[i]:3);
   if a[i]<mn then mn:=a[i];
  end;
writeln;
writeln('Minimal value is ',mn);
i:=1;
while i<=n do
if a[i]=mn then
 begin
  for j:=i to n-1 do
  a[i]:=a[i+1];
  n:=n-1;
 end
else i:=i+1;
for i:=1 to n do
write(a[i]:3);
readln;
End.

Program rmv;
uses       crt;
const      nmax=100;
var        a:array[1..nmax] of integer;
           n,i,j,mn,km,x:integer;
Begin
write('razmer massiva n=');
readln(n);
for i:=1 to n do
 Begin
  write('Enter A[',i,']');
  readln(a[i]);
 End;
writeln('Initial array');
for i:=1 to n do
write(a[i],'  '); //вводим элементы, при чем минимальных несколько
writeln;
mn:=a[1];//найдем минимальный
for i:=2 to n do
if a[i]<mn then mn:=a[i];
writeln('Minimal value is ',mn);
km:=0;
for i:=n downto 1 do//идем с конца
if a[i]=mn then  //ищем минимальные
 begin
  km:=km+1;//нашли, считаем
  x:=a[i];//запоминаем
  for j:=i to n-km do //сдигаем массив влево на km элементов
  a[j]:=a[j+1];
  a[n-km+1]:=x; //вставляем мин на место с конца
 end;
writeln('Amount of minimal values is ',km);
for i:=1 to n-km do //выводим без минимальных
write(a[i],'  ');
readln;
End.

const
  n=20; LIM=10; W=2;
var
  a: array [1..n] of Integer;
  i, j, m: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=Random(LIM);                    {инициализируем массив}
  WriteLn('A='); for i:=1 to n do Write(a[i]:W); WriteLn;       {выводим массив}
  m:=a[1]; for i:=2 to n do if a[i]<m then m:=a[i];               {ищем минимум}
  j:=0;                                                  {счётчик неминимальных}
  for i:=1 to n do                                     {проходим по массиву ...}
    if a[i]<>m then begin                            {...пропускаем минимальные}
      Inc(j); if j<i then a[j]:=a[i];  {если нужно, на их место пишем следующие}
    end;
  WriteLn('A''='); for i:=1 to j do Write(a[i]:W); WriteLn;     {выводим массив}
end.

Inc(j); a[j]:=a[i];