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

const
  N = 5;
 
var
  A: array[1..N] of integer;
  i : integer;
  yes : Boolean;
 
begin
  for i := 1 to N do 
    A[i] := random(6);
 
  writeln('massiv:' );
  for i := 1 to N do
    write(' ', A[i]);
  WriteLn;
    
  yes := False;
  for i := 1 to N - 1 do
    if A[i] = A[i + 1] then
      yes := True;
      
  if yes then
    begin
      WriteLn('Одинаковые стоящие рядом:');
      for i := 1 to N-1 do
        if a[i] = a[i+1] then WriteLn(i, ' ', i+1);
    end
  else
    WriteLn('Одинаковых стоящих рядом нет!');
end.