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

[Shtraf]

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


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

[Lapp]

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

Как-то так:

const
  m= 30;

var
  a: array[1..m] of integer;
  i,s,x,l: integer;

begin
  Randomize;
  for i:=1 to m do a[i]:= Random(4);
  for i:=1 to m do write(a[i]:2);
  writeln;
  s:= 1;
  x:= s;
  l:= 1;
  for i:=2 to m do
    if a[i]<>a[s] then begin
      if i-s>l then begin
        x:= s;
        l:= i-s
      end;
      s:= i;
    end;
  writeln('longest sequence consists of ',l,' numbers ',a[x],', starting at ',x,' pos');
  readln
end.