我这么和（diao）谐（zha）化（tian）的代码哪里错了

program  stop;
var a:array[1..1000] of integer;
    b:array[1..1000] of boolean;
    n,m,k,s,i,max,min,p,j,l,r:integer;
    d:boolean;
begin
  read(n,m);
  for i:=1 to m do
  begin
    fillchar (b,sizeof(b),false);
    max:=1000;
    d:=true;
    read(s);
    for  j:=1 to s do
      begin
      read(p);
      if j=1 then l:=p;
      if j=s then r:=p;
      b[p]:=true;
      if a[i]<max then max:=a[i];
      end;
    for k:=l to r do
    begin
      if not(b[k]) then d:=false;
      if (a[k]>=max)and(not(b[k])) then max:=a[k]+1;
    end;
    if d then continue;
    for k:=l to r do
      if b[k] then a[k]:=max;
  end;
  max:=0;
  min:=1001;
  for i:=1 to n do
  begin
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
  end;
  writeln(max-min+1);
end.