Выяснить, сколько чисел и какие входят в последовательность более чем по одному разу

uses crt;
var i,j,k,y,n,c,v,b,m:integer;
a:array[1..10] of integer;
z:real;
begin
write('n=');
readln(n);
z:=0;
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
c:=1;
 
writeln('');
for i:=1 to n-1 do begin
for j:=i+1 to n do
if a[i]=a[j] then begin
k:=a[i];
c:=c+1;
end;
if c>1 then writeln(k,' kolichestvo= ',c);
c:=1;
end;
readln;
end.

uses crt;
var i,l,min,max,p1,p2,j:longint;a,b,a1:string;
    t1:array[1..60]of string;
    t2:array[1..60]of longint;
    a2,a3:integer;
 begin
  clrscr;
   write('tekst: ');readln(a);
   l:=length(a)+1;a[l]:=' ';
   for i:=1 to l do
    if a[i]=' ' then begin
                      inc(j);t1[j]:=b;
              t2[j]:=length(b);b:='';
             end
            else b:=b+a[i];
    max:=t2[1];min:=t2[1];p1:=1;p2:=1;
   for i:=1 to j do
    begin
     if max<t2[i] then begin max:=t2[i];p1:=i; end;
     if min>t2[i] then begin min:=t2[i];p2:=i; end;
    end;
   writeln('Maks: ',t1[p1]);
   writeln('Min: ',t1[p2]);
  readln;
 end.

a:array[1..10] of integer;

a:array[1..n] of integer;

uses crt;
 var i,l,min,max,p1,p2,j:longint;a,b,a1:string;
 t1:array[1..60]of string;
 t2:array[1..60]of longint;
 a2,a3:integer;
 begin
 clrscr;
 write('tekst: ');readln(a);
 l:=length(a)+1;a[l]:=' ';
 for i:=1 to l do
 if a[i]=' ' then begin
 inc(j);t1[j]:=b;
 t2[j]:=length(b);b:='';
 end
 else b:=b+a[i];
 max:=t2[1];min:=t2[1];p1:=1;p2:=1;
 for i:=1 to j do
 begin
 if max<t2[i] then begin max:=t2[i];p1:=i; end;
 if min>t2[i] then begin min:=t2[i];p2:=i; end;
 end;
 writeln('Maks: ',t1[p1]);
 writeln('Min: ',t1[p2]);
 b:=t1[p1];
 t1[p1]:=t1[p2];
 t1[p2]:=b;
 write('tekst: ');
 for i:=1 to j do
     write(t1[i],' ');
 readln;
 end.