В массиве М из 10 целых чисел найти количество повторяющихся элементов

const
 n = 12;
var
 arr: array[1..n] of integer;
 i, max, sum: integer;
begin
 max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(20)+1;
    write(arr[i], ' ');
     if arr[i] > arr[max] then max:=i;
   end;
 writeln;
 writeln('Максимальный: ', arr[max]);
  for i:=1 to max-1 do
   inc(sum, arr[i]);
 writeln('Кол-во элементов до максимального: ', max-1, '; Их сумма: ', sum);
end.

const
 n = 10;
var
 arr: array[1..n] of integer;
 i, max, buf: integer;
begin
 max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(20)+1;
    write(arr[i], ' ');
     if arr[i] > arr[max] then max:=i;
   end;
 writeln;
 writeln('Максимальный: ', arr[max]);
 buf:=arr[1];
 arr[1]:=arr[max];
 arr[max]:=buf;
 writeln('Измененный массив: ');
  for i:=1 to n do
   write(arr[i], ' ');
end.

program ProgName;
const
  n = 10;
var
  arr: array[1..n] of Integer;
  i, Cnt: Integer;
  SoB: set of Byte;
begin
  for i:=1 to n do
    readln(arr[i]);
  Cnt:=0; SoB:=[];
  for i:= 1 to n do
    if arr[i] in SoB then
      inc(Cnt)
    else
      include(SoB, arr[i]);
  writeln('Cnt = ', Cnt);
end.

const
  n=12;
type
  Tarr=array[1..n] of integer;
var
  a:Tarr;
  i,k:integer;
begin
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-10+random(21);
      write(a[i]:4);
    end;
  writeln;
  k:=0;
  for i:=2 to n do
    if (a[i]>0) and (a[i-1]>0) then
      inc(k);
  write('Kol-vo sosedstv polozh.=',k);
end.