[Borland]

Alex Dark, переменную I вводить необязательно...

For block = 9 To 56
if block mod 2 = 1 then 
	'	нечет, "один набор команд"
	.......
else
	'	  чёт, "другой набор команд"
	.......
endif
next