Удаление элементов массива, встречающихся более 2х раз

[Zo_0m]

у меня такое задание: Дан одномерный массив. В нем необходимо посчитать количество отрицательных элементов и затем удалить отрицательные элементы встречающиеся более 2-х раз.

я не знаю как сделать именно само удаление... я пробовал способом похожим на сортировку обменом ставить отрицательные элементы в конец и обрезать этот конец, но почему то в конец они не ставились, также способом пузырьковой сортировки, но не получается. Вот моя программа:

program laba;
uses crt;
const N=5;
var b,k,i,j,m,o:integer;
a:array [1..N] of integer;
fl:array[1..N] of integer;
 
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to N do
read(a[i]);
o:=0;
     for i:=1 to N do
         if a[i]<0 then o:=o+1;
 
     for i:=1 to N do
         fl[i]:=0;
         for i:=1 to N do
         if fl[i]=0 then
            begin
            fl[i]:=1;
            for j:=i+1 to N do
            if (a[i]=a[j]) and (a[i]<0) and (a[j]<0) then
               begin
               fl[i]:=fl[i]+1;
               fl[j]:=fl[i];
               end;
            end;
b:=n;
 for i:=1 to N-1 do
 for j:=i+1 to N do
 
 begin
               m:=a[i];
               k:=i;
               for j:=i+1 to N do
                    if (a[j]>m) and (a[j]>0)  then
                              begin
                              m:=a[j];
                              k:=j;
                              b:=b+1;
                              end;
                              a[k]:=a[i];
                              a[i]:=m;
 end;
                                for i:=1 to N-b  do
                               write (a[i],' '); write('kolvo otr=',o);
end.

подскажите пожалуйста как мне сделать удаление...

[Serge_Bliznykov]

завести переменную, в которой хранить РЕАЛЬНОЕ число записей в массиве. при необходимости обрезать "крайние" элементы массива уменьшать эту переменную.

const MaxN = 1000;
var
   N : integer;
   a: array[1..MaxN] of integer;

N - и есть счётчик записей в массиве a

p.s. если массивов несколько - то переменных, которые хранят число элементов в массиве должно быть тоже несколько (для каждого массива - своя переменная).

p.p.s. называть переменные лучше с привязкой к имени массива.
например, CountForA

[Zo_0m]

а как сделать удаление с этим не поможете?(((