[Молоток]

Привет специалисты программирования. Для оптимизации нижеследующего кода необходимо перевести в case, но у меня не получается (нехватает знания). Если у кого найдется желание, дайте немного знания новичку. Спасибо всем, кто заглянул.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

if w1='1' then      begin       wNach:=0;       wKon:=6;      end;     if w1='2' then      begin       wNach:=1;       wKon:=5;      end;     if w1='3' then      begin       wNach:=2;       wKon:=4;      end;     if w1='4' then      begin       wNach:=3;       wKon:=3;      end;     if w1='5' then      begin       wNach:=4;       wKon:=2;      end;     if w1='6' then      begin       wNach:=5;       wKon:=1;      end;     if w1='7' then      begin       wNach:=6;       wKon:=0;      end;