Эх, было тут такое недавно. И решение.
А так как вам нужно скорее то решение, то придётся поискать по форуму. Т.к., например, моё решение ваш преподаватель перечеркнет.

Типа:
If sb1=0 then km1:=0; km2:=1;
ElseIf.................
И так для каждой строчки.

Вот преподаватель офигеет...