Одномерный массив(серии элементов)

[evans1995]

Дано целое число L (>0) и целочисленный массив размера N. Заменить каждую серию массива, длина которой больше L, на один элемент с нулевым значением.
помогите... не получается ничего

var a : array[1..100] of integer;
i,l,n,ser,g,k:integer;
BEGIN
writeln('Длинна массива');
readln(n);
writeln('Введите массив');
for i:=1 to n do
readln(a[i]);
writeln;
writeln('Число L');
readln(L);
ser:=1; k:=0;
for i:=1 to n-1 do
 begin
 if a[i]=a[i+1] then  ser:=ser+1 else ser:=1;
 if ser>L then
     begin
     for g:=i downto i-l+1 do a[g]:=0;
     for g:=i+1 to n-1 do  a[g]:=a[g+1]; 
     a[n]:=0; 
     k:=1+k;
     end;
   end;
  writeln; 
  for i:=1 to n-k do write(a[i],' ');
  writeln;
END.