2 одинаковых числа в массиве

 uses Crt;
 var
  a, j: array [1..100] of integer;
  b,d,s,e, x, g: integer;
  f: text;
  begin
  randomize;
  x:=1;
  for b:=1 to 100 do
  a[b]:=random(100);
 
  for d:=1 to 100 do
   for s:=1 to 100 do
    if (a[d]=a[s]) and (d<>s) then
     for e:=1 to 100 do
      if a[s]<>j[e] then
       writeln(a[s],'=',a[d]);
       g:=a[s];
       j[x]:=g;
       x:=x+1;
   readln;
 
  end.

uses Crt;
Var a:array [1..100] of integer; b,s:integer; k:set of 0..100;
Begin
ClrScr; Randomize; k:=[];{создаём пустое множество}
For b:=1 to 100 do
 Begin
  a[b]:=random(101);
  Write(a[b]:4);
 End;
For b:=1 to 100 do
 For s:=b+1 to 100 do
  If (a[b]=a[s]) and not(a[b] in k) then {отыскиваем одинаковые элементы}
   Begin
    Write(a[s],'=',a[b],' ');
    Include(k,a[b]);{добавляем элемент в множество, чтобы не было повторений}
   End;
Readln;
End.

uses crt;
var a:array[1..100] of integer;
    n,i,j,c,k,x:integer;
begin
clrscr;
n:=100;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln('Одинаковые элементы');
i:=1;
while i<=n do
 begin
  x:=a[i];{запомним элемент}
  j:=i;
  c:=0;{количество его}
  while j<=n do
   begin
    if a[j]=x then{если такой же}
     begin
      c:=c+1;{считаем}
      if j=n then n:=n-1{и удаляем, чтобы не было повторов}
      else
       begin
        for k:=j to n-1 do
        a[k]:=a[k+1];
        n:=n-1;
       end
      end
     else j:=j+1;
   end;
  if c>1 then{если больше 1, выводим}
   begin
    for k:=1 to c do
    write(x,' ');
    writeln;
    i:=i+1{и идем вперед}
   end
  else i:=i+1;{иначе просто вперед}
 end;
readln
end.

uses crt;
var a:array[1..100] of integer;
    n,i,j,x:integer;
begin
clrscr;
n:=100; x:=0;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln('Одинаковые числа: ');
 
for i:=1 to n do
begin
 if x=1 then write (a[i]);
 x:=0;
 for j:=i+1 to n do
  if (a[i]=a[j] and a[j]>0) then
   begin
    a[j]:=0;
    x:=1;{запомним, что было совпадение}
   end;
end;
 
end.