为什么是零分？？？

var l,n,j,s,i:longint;
    a:array[1..1000]of longint;
    f:boolean;
begin
  readln(l,n);
  s:=0;
  fillchar(a,sizeof(a),-1);（以防数据一开始就是0）
  for i:=1 to n do read(a[i]);
  for i:=1 to n do begin
                     f:=true;
                     if i>=l then （在之前的不用做）
                      for j:=i-l+1 to i-1 do if a[j]=a[i] then begin
                                                                 f:=false;
                                                                 break;
                                                               end;（如果是有相同的就返回）
                     if not(f) then inc(s);
                   end;
  writeln(s);
end.