Problème de huit reines (dames)

procedure place_dame(t:tab;ndames:integer);
label suivant,1;
var i,j:integer;
begin
if (ndames=nbd+1) then
begin
s:=s+1;
affiche(t,nbd);
end;
for i:=1 to nbd do
begin
for j:= 1 to ndames do
if((t[j]=i) or (abs(t[j]-i)=abs(j-ndames))) then goto suivant;
t[ndames]:=i;
place_dame(t,ndames+1);
suivant: ;
end;
end;

======================================================

procedure affiche(t:tab;nbd:integer);
var i,j:integer;
begin
for i:=1 to nbd do
begin
for j:= 1 to nbd do
if (t[i]=j) then
write(f,'X ')
else write(f,'0 ');
writeln(f);
end;
writeln(f,'solution : ',s);
end;