Вывести все числа, которые повторяются больше 2х раз..

PROGRAM jj;
uses crt;
CONST m = 100;
VAR a:array[1..m] of integer;
k,l,i,j,n : integer;
begin
writeln('vvedite kol-vo simvolov');
readln(n);
for i:=1 to n do
  begin
     write('a[',i:1,']=');
     read(a[i]);
  end;
K:=0;j:=2;l:=0;
while j<n do begin
if a[i]=a[j] then begin
k:=1;a[j]:=a[n];
n:=n-1;
end;
j:=j+1; end;
if k=1 then begin writeln(a[i]); k:=0;l:=1; end;
i:=i+1;j:=i+1;
if l=0 then writeln('Chisla bolshe 2x raz ne povtoryautca');
end.

PROGRAM jj;
uses crt;
CONST m = 100;
VAR a:array[1..m] of integer;
    b:array[1..m] of integer;
k,i,j,n,l : integer;
begin
     writeln('vvedite kol-vo simvolov');
     readln(n);
     for i:=1 to n do
                     begin
                          write('a[',i:1,']=');
                          read(a[i]);
                     end;
     for i:=1 to n do
                     begin
                          k:=0;
                          for j:=1 to n do
                                          begin
                                               if a[i]= a[j] then k:=k+1;
                                          end;
                          l:=1;
                          if k>2 then
                                     begin
                                          b[l]:=a[i];
                                          l:=l+1;
                                     end;
                     end;
     writeln('Повторяющиеся элементы');
     for i:=1 to l do write(b[i], ' ');
end.