Delphi 7. Задача с использованием оператора case.

[arctica]

Условие задачи:
В следующем фрагменте программы определите новый курс К2 корабля, если корабль сначала шел по курсу К1, а затем его курс был изменен согласно приказу ПР.

type
  kurs = (north,east,south,west);
  prikaz = (vpered,vlevo,vpravo,nazad);
var
  K1, K2: kurs;
  Pr: prikaz;

Помогите с написанием программы.
Должен использоваться оператор case.
Буду очень благодарна ^^

[Прик]

  case K1 of
    north : case PR of
              vpered : K2 := north;
              vlevo :  K2 := west;
              vpravo : K2 := east;
              nazad :  K2 := south;
            end;
    east : case PR of
              vpered : K2 := east;
              vlevo :  K2 := north;
              vpravo : K2 := south;
              nazad :  K2 := west;
           end;
    south : case PR of
             //... и т.д.
           end;
    west : case PR of
             //... и т.п.
           end;
  end;

[arctica]

Прик, огромное спасибо ^^