Viết chương trình nhập một dãy số tối đa 10 số, rồi in ra màn hình các số trùng nhau. (pascal)

uses crt;
var n,i,d:longint;
a:array[0..100000] of longint;

procedure qs(l,r:longint);
var i,j,t,x:longint;
begin
//if l>r then exit;
i:=l;
j:=r;
x:=a[(l+r) div 2];
repeat
 while a[i]<x do
  i:=i+1;
  while a[j]>x do
   j:=j-1;
  if i<=j then
  begin
   t:=a[i];
   a[i]:=a[j];
   a[j]:=t;
   i:=i+1;
   j:=j-1;
  end;
 until i>j;
if j>l then
 qs(l,j);
if i<r then
 qs(i,r);
end;

begin
clrscr;
readln(n);
for i:=1 to n do
 readln(a[i]);
qs(1,n);
i:=1;
while i<=n do
begin
 d:=1;
 while a[i]=a[i+1] do
 begin
  d:=d+1;
  i:=i+1;
 end;
 if d>1 then write(a[i],' ');
 i:=i+1;
end;
readln
end.

Tham khảo chương trình :

`@` Pascal `:`

uses crt;
var
    a,ban : array[1..1000] of int64;
    n,i,i1,p,i3 : longint;
    result : boolean;
begin
clrscr;
    read(n);
    for i := 1 to n do read(a[i]);
    for i := 1 to n do
        for i1 := i + 1 to n do
            if a[i] = a[i1] then 
                begin
                result := false;
                for i3 := 1 to p do if a[i] = ban[i3] then result := true;
                if result = false then writeln(a[i]);
                inc(p);
                ban[p] := a[i];
                end;

readln;
end.