Составить программу в паскаль: Найти подпоследовательность максимальной длины подряд идущих чисел массива равных между собой

Const    N = 33; Var    A:array[1..N] of integer;    i,k,M,d:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do     Begin     A[i]:=random(N div 10+1);     Write(' ',A[i])     End; WriteLn; k:=1; d:=0; For i:=1 to N-1 do     if (A[i]=A[i+1]) then k:=k+1     else        Begin        if k>d then           Begin           d:=k;           M:=i;           End;        k:=1;        End; if d>1 then WriteLn('Искомая последовательность начинается с элемента №',M-d+1,', и заканчивается элементом №',M,'') else if d>0 then WriteLn('В массиве нет, стоящих рядом, равных чисел')      else WriteLn('Все числа в последовательности равны'); End. Пример: Исходный массив: 1 1 1 1 1 2 2 1 3 2 0 3 1 3 0 3 3 0 0 1 3 1 1 2 3 0 1 1 2 2 1 0 0 Искомая последовательность начинается с элемента №1, и заканчивается элементом №5