Delphi в чем ошибка и как ее исправить (выделает первое else)

if y1=0 then y3:=1 and Edit11.Text:=IntToStr(z1)+IntToStr(x1)+IntToStr(c1)+IntToStr(v1)+IntToStr(b1)+IntToStr(n1) +IntToStr(m1)+IntToStr(y3)
else y3:=1 and begin if m1=0 then m3:=1 and Edit9.Text:=IntToStr(z1)+IntToStr(x1)+IntToStr(c1)+IntToStr(v1)+IntToStr(b1)+IntToStr(n1) +IntToStr(m3)+IntToStr(y3)
else M3:=1 and begin if n1=0 then n3:=1 and Edit9.Text:=IntToStr(z1)+IntToStr(x1)+IntToStr(c1)+IntToStr(v1)+IntToStr(b1)+IntToStr(n3) +IntToStr(m3)+IntToStr(y3)
else n3:=1 and begin if b1=0 then b3:=1 and Edit9.Text:=IntToStr(z1)+IntToStr(x1)+IntToStr(c1)+IntToStr(v1)+IntToStr(b3)+IntToStr(n3) +IntToStr(m3)+IntToStr(y3)
else b3:=1 and begin if v1=0 then v3:=1 and Edit9.Text:=IntToStr(z1)+IntToStr(x1)+IntToStr(c1)+IntToStr(v3)+IntToStr(b3)+IntToStr(n3) +IntToStr(m3)+IntToStr(y3)
else v3:=1 and begin if c1=0 then c3:=1 and Edit9.Text:=IntToStr(z1)+IntToStr(x1)+IntToStr(c3)+IntToStr(v3)+IntToStr(b3)+IntToStr(n3) +IntToStr(m3)+IntToStr(y3)
else c3:=1 and begin if x1=0 then x3:=1 and Edit9.Text:=IntToStr(z1)+IntToStr(x3)+IntToStr(c3)+IntToStr(v3)+IntToStr(b3)+IntToStr(n3) +IntToStr(m3)+IntToStr(y3)
else x3:=1 and begin if z1=0 then z3:=1 and Edit9.Text:=IntToStr(z3)+IntToStr(x3)+IntToStr(c3)+IntToStr(v3)+IntToStr(b3)+IntToStr(n3) +IntToStr(m3)+IntToStr(y3)
else z3:=1 and Edit9.Text:=IntToStr(z3)+IntToStr(x3)+IntToStr(c3)+IntToStr(v3)+IntToStr(b3)+IntToStr(n3) +IntToStr(m3)+IntToStr(y3)
end;
end;
end;
end;
end;
end;