Не выводится результат работы программы решения числового ребуса, в чём ошибка?

var b,u,l,o,k,i,m,n,g:integer;
begin
for b:=1 to 9 do
for u:=1 to 9 do
for l:=1 to 9 do
for o:=1 to 9 do
for k:=1 to 9 do
for i:=1 to 9 do
for m:=1 to 9 do
for n:=1 to 9 do
for g:=1 to 9 do
if (b*1000)+(u*100)+(l*10)+o+(k*1000)+(b*1000)+(i*100)+(1*10)+o=(m*10000)+(n*1000)+(o*100)+(g*10)+o
then begin
writeln('b=',b);
writeln('u=',u);
writeln('l=',l);
writeln('o=',o);
writeln('k=',k);
 
writeln('b=',b);
writeln('i=',i);
writeln('l=',l);
writeln('o=',o);
 
writeln('m=',m);
writeln('n=',n);
writeln('o=',o);
writeln('g=',g);
writeln('o=',o);
writeln(b,u,l,o,k,'+',b,i,l,o,'=',m,n,o,g,o);
end;
end.

var b,u,l,o,k,i,m,n,g,s:integer;
begin
s:=0;
for b:=1 to 9 do
for u:=0 to 9 do
for l:=0 to 9 do
for o:=0 to 9 do
for k:=0 to 9 do
for i:=0 to 9 do
for m:=1 to 9 do
for n:=0 to 9 do
for g:=0 to 9 do
if (b*10000+u*1000+l*100+o*10+k+b*1000+i*100+l*10+o=m*10000+n*1000+o*100+g*10+o )
and(b<>u)and(b<>l)and(b<>o)and(b<>k)and(b<>i)and(b<>m)and(b<>n)and(b<>g)
and(u<>l)and(u<>o)and(u<>k)and(u<>i)and(u<>m)and(u<>n)and(u<>g)
and(l<>o)and(l<>k)and(l<>i)and(l<>m)and(l<>n)and(l<>g)
and(o<>k)and(o<>i)and(o<>m)and(o<>n)and(o<>g)
and(k<>i)and(k<>m)and(k<>n)and(k<>g)
and(l<>m)and(i<>n)and(i<>g)
and(m<>n)and(m<>g)and(n<>g)
then
 begin
  s:=s+1;
  writeln(b,u,l,o,k,'+',b,i,l,o,'=',m,n,o,g,o);
 end;
if s=0 then write('Решений нет')
else write('Количество решений=',s)
end.