Посчитать количество одинаковых подряд стоящих элементов

program UseRepeat;
 
var 
  i,count: integer; 
  arr: array [1..5] of real;
 
  
begin
 
for i:=1 to 5 do
begin
read(arr[i]);
 
end;
for i:=1 to 5 do
  begin
    if i<>1//когда равно 1 он должен
      then begin
           if (arr[i]=arr[i+1]) and   (arr[i]=arr[i-1]) then
               begin
                 inc(count)
               end 
   else//прыгнуть сюда,а он почему то даже не смотрит, когда первый элемент он возвращается к  циклу
      if arr[i]=arr[i+1]
          then begin
          inc(count);
        
      if i=5 then
       if arr[i]=arr[i-1] then
       inc(count);
end
end
end;
 
 
write('Количество одинаковых подряд стоящих элементов: ',count);
 
end.

program UR;
const n=7;
var a:array[1..n] of integer;
    max,max1:integer;
begin
   for var i:=1 to n do
      read(a[i]);
   max:=1;
   max1:=1;
   for var i:=1 to n-1 do
         if (a[i]=a[i+1]) then inc(max1)
                          else
                               begin
                                 if (max1>max) then max:=max1;
                                 max1:=1;
                               end;
   if (max1>max) then max:=max1;
   writeln(max);
end.

program UseRepeat;
 
var 
  i,count: integer; 
  arr: array [1..5] of real;
 
  
begin
count := 0; // обнуляем счетчик 
 
// Заполняем массив
for i:=1 to 5 do
begin
  read(arr[i]);
end;
 
// Поиск одинаковых подряд стоящих элементов
for i:=1 to 5-1 do 
begin
  if arr[i]=arr[i+1] then inc(count);
end;
 
 
write('Количество одинаковых подряд стоящих элементов: ',count);
 
end.

program UseRepeat;
 
const
  n = 5; // размер массива
 
var 
  i,count: integer;
  fg: boolean;
  arr: array [1..n] of real;
 
  
begin
count := 0; // обнуляем счетчик 
fg := false;
 
// Заполняем массив
for i:=1 to n do
begin
  read(arr[i]);
end;
 
// Поиск одинаковых подряд стоящих элементов
for i:=1 to n-1 do 
begin
  if (arr[i]=arr[i+1]) and (fg=false) then 
  begin
    fg := true;
    inc(count);
  end
  else fg:=false;
end;
 
 
write('Количество одинаковых подряд стоящих элементов: ',count);
 
end.