[Молоток]

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

Код:

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;