Вычислить количество равных элементов, стоящих рядом (повторений)

uses crt;
var
a: array[1..16] of integer;
i,k: integer;
begin
a[6]:=10;
writeln('Исходный массив:');
for i:=1 to 15 do begin
a[i]:=random(3);
write(a[i]);
end;
 
for i:=1 to 15 do begin
if a[i]=a[i+1] then inc(k);
end;
writeln;
write('Кол-во повторений: ',k);
end.

uses crt;
const n=15;
var
mass: array[1..n] of integer;
i,count: integer;
begin
    Randomize;
    writeln('Исходный массив:');
    for i:=1 to n do 
        begin
            mass[i]:=random(3);
            write(mass[i],' ');
        end;
    writeln;
 
    for i:=1 to n-1 do 
        if mass[i]=mass[i+1] then inc(count);
    write('Повторений= ',count);
    readln;
end.

a[16]:=10;

var arr:array [0..14] of integer; i,i1,count:integer;
begin
for i:=0 to 14 do
arr[i]:=Random(3);
for i:=0 to 14 do
begin
for i1:=0 to 14 do
if not(i=i1) then 
if arr[i]=arr[i1] then begin inc(count); break; end;
end;
writeln(count);
readln(i);
end.