Задача про линию шариков (удаление со сдвигом 3х и более одинаковых подряд идущих)

program Lines;
 
const
  NMax = 100;
type
  TBalls = record
    Color: integer;
    Count: integer;
  end;
  TLines = array[1..NMax] of TBalls;
 
var
  n, c, Count: integer;
  Balls: TLines;
  Len: integer;
  i: integer;
begin
  Count := 0;
  Len := 0;
  Read(n);
  for i := 1 to n do
  begin
    Read(c);
    if (Len > 0) and (Balls[Len].Color <> c) then
    begin
      if Balls[Len].Count >= 3 then
      begin
        Count := Count + Balls[Len].Count;
        Dec(Len);
      end;
    end;
    if (Len = 0) or (Balls[Len].Color <> c) then
    begin
      Inc(Len);
      Balls[Len].Color := c;
      Balls[Len].Count := 1;
    end
    else
      Inc(Balls[Len].Count);
  end;
  readln;
  if (Len > 0) and (Balls[Len].Count >= 3) then
  begin
    Count := Count + Balls[Len].Count;
    Dec(Len);
  end;
  writeln(Count);
end.