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

[Shtraf]

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


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

[IUnknown]

Если в конце поставить, к примеру, подряд 4 одинаковых значения

этот вариант приведенным выше кодом не охватывается. Завершающая последовательность не проверяется, т.к. условие a[ i ] <> a[s] не выполняется. Исправить можно так:

  for i := 2 to m + 1 do
    if (i = m + 1) or (a[i] <> a[s]) then // именно в таком порядке, сначала условие i = m + 1
    begin

если поменять условия местами - вылет за пределы массива гарантирован.