Задача с использованием Case. PASCAL

[Mozli]

Помогите с задачой:

Локатор может ориентироваться на одну из сторон света: север, юг, запад, восток. И он может принимать три цифровые команды:
1 - поворот на лево;
-1 - Поворот на право;
2 - поворот на 180 градусов.
Начало ориентации локатора - север. Дается два числа N1 и N2.
Вывести ориентацию локатора после ввода этих команд.

Задачу нужно решить с использованием case.

[xakkkkker]

Вот набросал код. Он полностью рабочим. Могут быть маленькие косяки смотрите сами.

Program Forum_Case;
uses
 crt;
 var
  N1,N2,Res,i,N:integer;
 begin
 ClrScr;
  Res:=360;
   For i:=1 to 2 do
    begin
     Readln(N);
      case n of
       1 : Res:=Res-90;
       -1: Res:=Res+90;
       2 : Res:=Res-180;
      end;
    end;
   case res of
    0,360: Writeln('Sever');
    270  : Writeln('Zapad');
    180  : Writeln('yug');
    450,90 : Writeln('vostok');
   end;
  Readkey;
 end.