Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом - Pascal ABC (13495)

Формулировка задачи:

Дано задание: Заполните массив случайными числами в интервале [0,5]. Определить, есть ли в нем элементы с одинаковыми значениями, стоящие рядом. Пример: Массив: 1 2 3 3 2 1 Есть: 3 Пример: Массив: 1 2 3 4 2 1 Нет Написал я программу, но она определяет только что есть повтор или нет, что надо дописать чтобы она выдавал еще и число, которое повторяется.

                    Листинг программы
                
 
                        
                          
                    
program qq;
var
a,i,n: integer;
m: array [1..101] of integer;
begin
write('размер масива = ');
read (n);
a:=0;
randomize;
for i:=1 to n do begin
m[i]:= random (6);
write (m[i],' ');
if m[i]=m[i+1]
then
a:=a+1
end;
writeln ();
if a>0 then
writeln ('есть')
else
writeln ('нет')
end.

Решение задачи: «Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом»

Листинг программы

program qq_2;
 var a,i,n: integer;
     m:array [1..101] of integer;
begin
 cls;
 randomize;
 write('Размер массива = ');
 read(n);
 for i:=1 to n do
  begin
   m[i]:=random(6);
   write(m[i],' ');
  end;
  writeln;
  a:=0;
  for i:=1 to n-1 do
   begin
   if m[i]=m[i+1]
    then begin
     if a=0
      then begin
       write('Есть:');
       a:=1
      end;
     write(m[i]:2)
    end;
  end;
 if a=0
  then writeln('Нет')
end.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC происходит следующее:

Объявляются переменные: a, i, n и m. Переменная a и i являются целочисленными, а переменная n - также целочисленной, но используется для хранения размера массива m. Переменная m является массивом, который будет заполняться случайными целыми числами от 1 до 100.
Выводится сообщение о размере массива, который читается с клавиатуры.
С помощью цикла for заполняется массив m случайными числами от 1 до 100.
Затем происходит проверка наличия повторяющихся значений в массиве. Для этого используется цикл for, который проходит по всем элементам массива, кроме последнего. Внутри цикла проверяется равенство текущего и следующего элементов. Если они равны, то выводится сообщение Есть:, и переменная a устанавливается равной 1. Если элементы не равны, то выводится их значение.
После завершения внутреннего цикла проверяется значение переменной a. Если она равна 0, то выводится сообщение Нет. Таким образом, данный код позволяет определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом.