Повторение Элемента, Задачка, помогите решить Опции

[Shtraf]

Найти максимальное кол-во и значение расположенных рядом одинаковых элементов массива.
Массив <= 10


Не могу дойти до алгоритма, по которому считать кол-во элементов выполняющих условие, так чтобы, если есть ряд длинней предыдущего, он считался заново и сохранить повторяющееся значение.

[Shtraf]

 
 const
   MaxSize = 10; 
 var
   A: array [1..MaxSize] of Integer;
   N: Integer;
   I: Integer;
   R: Integer;
   V: Integer;
   Z: Integer;   
   { я пропустил ввод данных что бы лишнее не писать тут, а так он такой же как и  тот что я чуть выше писал}
    R:=0;
   V:=0;
   if N=1 then
   begin
     V:=1;
     Z:=A[1];
   end;
   for I:=1 to N do
     if (I>1) and (I<N) then
     begin
       if Z=A[I-1] then
         R:=0;
       if A[I]=A[I+1] then
         R:=R+1 
       else
         if (A[I]=A[I-1]) and (A[I]<>A[I+1]) then
         begin  
           R:=R+1;
           if V=0 then
           begin
             V:=R;
             Z:=A[I]
           end
           else
             if R>V then
             begin
               V:=R;
               Z:=A[I];
             end;    
         end;
     end    
     else
     begin
       if (I=1) and (A[I]=A[I+1]) then
           R:=R+1
       else
         if (I=N) and (A[I]=A[I-1]) then
         begin
           R:=R+1;
           if R>V then
           begin
             V:=R;
             Z:=A[I];
           end;
         end;           
     end;  
   { Вывод результата}
   writeln('Максимальная цепочка = ', V,' при значение = ',Z);
   readln;
 end.

Вот то что я сотворил... но я делал на том что знаю (while я не умею им пользоваться у меня с ним не получилось)

Добавлено через 10 мин.
В принципе вопрос исчерпан, но буду очень рад советам, потому что я только начал осваивать всё это.