extra words after "else" clause in "if" command

[wdylut]

wrong # args: extra words after "else" clause in "if" command
while executing
"if {(($pier==1)||($pier==[expr $NBay+1]))&&(($level==1)||($level==2))} {;
set elemID [expr $N0col + $level*10 +$pier];
set nodeI [expr $level..."
("for" body line 3)
invoked from within
"for {set level 1} {$level <=$NStory} {incr level 1} {;
for {set pier 1} {$pier <= [expr $NBay+1]} {incr pier 1} {;
if {(($pier==1)||($pier==[..."
my dear friends,I don't have a "#" in my program,but the wrong data is showed above,I am crazy,my program is given blow:
______________________________________________________________________________________________________________
for {set level 1} {$level <=$NStory} {incr level 1} {;
for {set pier 1} {$pier <= [expr $NBay+1]} {incr pier 1} {;
if {(($pier==1)||($pier==[expr $NBay+1]))&&(($level==1)||($level==2))} {;
set elemID [expr $N0col + $level*10 +$pier];
set nodeI [expr $level*10 + $pier];
set nodeJ [expr ($level+1)*10 + $pier];
element nonlinearBeamColumn $elemID $nodeI $nodeJ $np $ColSecTagB12 $IDColTransf;
} elseif {(($pier==1)||($pier==[expr $NBay+1]))&&(($level==3)||($level==4))} {;
set elemID [expr $N0col + $level*10 +$pier];
set nodeI [expr $level*10 + $pier];
set nodeJ [expr ($level+1)*10 + $pier];
element nonlinearBeamColumn $elemID $nodeI $nodeJ $np $ColSecTagB34 $IDColTransf;
} elseif {$level==1||$level==2} {;
set elemID [expr $N0col + $level*10 +$pier];
set nodeI [expr $level*10 + $pier];
set nodeJ [expr ($level+1)*10 + $pier];
element nonlinearBeamColumn $elemID $nodeI $nodeJ $np $ColSecTagZ12 $IDColTransf;
} else {$level==3||$level==4} {;
set elemID [expr $N0col + $level*10 +$pier];
set nodeI [expr $level*10 + $pier];
set nodeJ [expr ($level+1)*10 + $pier];
element nonlinearBeamColumn $elemID $nodeI $nodeJ $np $ColSecTagZ34 $IDColTransf;
}
}
}

[wdylut]

I have solved it,don't waste your time on it,my friends who will see this