我这程序哪里错了?只过一个点(不是超时的问题)

type typeset=set of 1..150;

var a:array[0..200]of typeset;

b,c:array[0..200]of longint;

max,n,m,x,y,i:longint;

procedure sou(j,p:longint;v:typeset);

var i:longint;

begin

if p>max then begin max:=p;b:=c;end;

for i:=j+1 to n do

if not(i in v) then

begin

c[i]:=1;

if p+1>max then begin max:=p+1;b:=c;end;

sou(i+1,p+1,v+a[i]);

c[i]:=0;

end;

if p>max then begin max:=p;b:=c;end;

end;

begin

read(n,m);

for i:=1 to n do a[i]:=[i];

for i:=1 to m do

begin

read(x,y);

a[x]:=a[x]+[y];

a[y]:=a[y]+[x];

end;

max:=0;

sou(0,0,[]);

writeln(max);

for i:=1 to n do write(b[i],' ');

end.