Напишите программу, которая по данной ситуации определяет, сколько шариков будет сейчас "уничтожено"

var MAS:aRRay of LongInt;
    N, i:IntegeR;
    cur, c1, c2:Byte;
 
begin
  readln(N);
  SetLength(MAS, N);
  for i:= loW(MAS) to HigH(MAS) do read(MAS[i]);
  cur:= MAS[loW(MAS)];
  c1:= 1;
  c2:= 0;
  for i:= loW(MAS) + 1 to HigH(MAS) do
  begin
    if (MAS[i] = cur) then inc(c1)
    else
    begin
      cur:= MAS[i];
      if (c1 > c2) then begin c2:= c1; c1:= 1; end;
    end;
  end;
  if (c1 > c2) then writeln(c1)
  else writeln(c2);
end.

var MAS:aRRay of byte;//наверное значение цвета от  до 255 хватит
    N, i, cur, c1, c2:integer;
begin
  readln(N);
  SetLength(MAS, N);
  for i:=loW(MAS) to HigH(MAS) do read(MAS[i]);
  i:=1;
  cur:=0;
  while (i<=HigH(MAS)-2)and(cur=0) do
  if MAS[i]=MAS[i-1] then
   begin
    c1:=i;
    c2:=1;
    while(c1<=HigH(MAS))and(MAS[c1]=MAS[c1-1])do
     begin
      inc(c2);
      inc(c1);
     end;
    if c2>2 then cur:=c2 
    else inc(i,c2);
   end
  else inc(i);
  if cur>2 then write('Будет удалено ',c2,' шаров') 
  else write('Будет удалено 0 шаров')
end.

var a:array[1..1000] of integer;
    n,i,j,k,p,s,q,ud:integer;
    f:boolean;
begin
read(n);
if n<3 then
 begin
  write(0);
  exit
 end; 
for i:=1 to n do
read(a[i]);
ud:=0;
f:=false;{нет цепочек >2 элемента}
repeat
i:=2;{начнем со 2}
while i<=n do
if a[i]=a[i-1] then{если одинаковые}
 begin
  j:=i;
  s:=1;
  p:=i-1;{начало цепочки}
  while(j<=n) and(a[j]=a[j-1]) do
   begin
    s:=s+1;{считаем количество}
    j:=j+1;
   end;
  if s>2 then{если больше 2, удаляем}
   begin
    ud:=ud+s;{считаем сколько удалили}
    f:=true;
    for j:=1 to s do{s раз}
     begin
      for q:=p to n-1 do
      a[q]:=a[q+1];{сдвигаем конец массива влево на 1}
      n:=n-1;
     end
   end
  else i:=i+1;{если 2, то дальше}
 end
else i:=i+1;{если 1, то дальше}
until(n<3)or not f;{если осталось меньше 3 или нет цепочек}
write(ud);
end.

until(n-i<3)or not f;