Удалить из массива все элементы, встречающиеся менее двух раз.

uses crt;
var a:array[1..50] of integer;
    n,i,j,k,l:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
i:=1;
while i<=n do
  begin
    k:=0;
    for j:=i+1 to n do //идем по массиву от следующего числа
    if a[i]=a[j] then k:=k+1;//если находим одинаковые, считаем
    if k=0 then //если таких нет
       begin
         for l:=i to n-1 do //к этому числу сдвигаем массив влево на 1
         a[l]:=a[l+1];//это число исчезает
         n:=n-1;//уменьшаем длину массива
       end
     else i:=i+1;//иначе переходим к следующему числу
   end;
writeln('Rezultat:');
for i:=1 to n do
write(a[i],' ');
readln
end.

uses crt;
const n=5;
      m=4;
var a:array[1..n,1..m]of integer;
    i,j,l,p,min,t:integer;
 
begin
clrscr;
randomize;
writeln('Ishodnaia matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
       begin
       a[i,j]:=random(20)-5;
         write(a[i,j]:5);
       end;
      writeln;
  end;
for i:=1 to n do  //идем вниз по строкам
   begin
      min:=a[j,1];p:=i;//запоминаем первый элемент как минимальный
      for j:=i to n do //последовательно от каждой следующей строки до последней
      for l:=1 to m do  // ищем строку с меньшим минимальным
      if a[j,l]<min then//если находим
         begin
           min:=a[j,l];//запоминаем новый минимум
           p:=j;  //запоминаем строку
         end;
      for j:=1 to m do
          begin
            t:=a[i,j]; //меняем все элементы этих строк между собой
            a[i,j]:=a[p,j];
            a[p,j]:=t;
          end;
   end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:5);
      writeln;
  end;
readln;
end.