Дан массив чисел. Найти сколько в нем пар одинаковых соседних элементов.

Program nG;
const
n=10;
var
i,k:integer;
a:array [1..n] of integer;
begin
Randomize;
For i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:5);
end;
For i:=1 to n do
begin
If (odd(a[i])=true  ) and (odd(i)=False) then
k:=k+1;
end;
Writeln('       количество = ',k);
readln;
end.

Program nG;
const
n=10;
var
i,k:integer;
a:array [1..10] of integer;
begin
Randomize;
For i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:5);
end;
for i:=1 to 9 do
begin
If a[i]=a[i+1] then
inc(k);
 
end;
writeln('        Совпадений:     ',k);
end.

program ulb9;
type mas=array [1..5,1..5] of integer;
var j,i,k:integer;
    a:mas;
begin
Randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do
begin
a[i,j]:=random(10);
end;end;
writeln('UcxoDHa9');
for i:=1 to 5 do begin
for j:=1 to 5 do
begin
write(a[i,j],'  ');
 
end;
writeln;
end;
writeln;
writeln;
i:=0;
j:=0;
for k:=1 to 5 do
begin
inc(i);
inc(j);
a[i,j]:=0;
end;
writeln('roToBa9');
for i:=1 to 5 do begin
for j:=1 to 5 do
begin
write(a[i,j],'  ');
 
end;
writeln;
end;
end.