排队的奶牛(Cows in a Row)

题目：
农夫约翰的N只奶牛排成了一条直线，每只奶牛都有一个特定的标识序号，从左到右第i只奶牛的编号是Bi。
约翰认为他的奶牛队列中存在某段连续区间都是相同序号的，那他的队列就非常的美观。为了创造这样的一个连续区间，约翰决定将某个特定的序号的奶牛全部剔除队列。
问题描述：
请帮助约翰计算出通过选择除去某个特定序号的全部奶牛后，所剩下的队列中连续的有相同序号的奶牛的最大区间。
输入格式：
第一行一个正整数N，表示奶牛的数量。
第2行到第N+1行，每行一个非负整数，表示从左到右每只奶牛的序号。
输出格式：
只有一行一个整数，表示连续的有相同序号的奶牛的最大区间中奶牛的数量。

var
i,n,j,m,k,l,max,biao,ans:longint;
a,b,c:array[0..1001] of longint;

procedure pd(t:longint);
var
i,m,j:longint;
len,max,k,lo,cc,d:longint;
begin
d:=0;
for i:=1 to n do
if c[i]=b[t] then begin
c[i]:=-1;
inc(d);
end;
for k:=1 to d do
for i:=1 to n do
begin
if c[i]=-1 then
for j:=i to n do
c[j]:=c[j+1];
end;

lo:=1;
max:=0;
for i:=2 to n do
begin
cc:=c[i];
if c[i-1]=cc then inc(lo)
else begin
if lo>max then max:=lo;
lo:=1;
end;
end;
if max=0 then max:=lo;
if ans