Эх, было тут такое недавно. И решение.
А так как вам нужно скорее то решение, то придётся поискать по форуму. Т.к., например, моё решение ваш преподаватель перечеркнет.
Типа:
If sb1=0 then km1:=0; km2:=1;
ElseIf.................
И так для каждой строчки.
Вот преподаватель офигеет...
можешь составить логическое выражение без if и elself. только с не, или, и. у меня еще неделя есть