Движение танка. Как уменьшить код?

var napr,kom:integer;
s:string;
begin
writeln('Напишите начальное направление');
readln(napr);
repeat 
begin
 readln(kom);
 case napr of
   1: case kom of
     1: begin napr:=2; writeln('Направление на Восток'); end;
     2: begin napr:=4; writeln('Направление на Запад'); end;
     3: begin napr:=3; writeln('Направление на Юг'); end; 
     end;
   2: case kom of
     1: begin napr:=3; writeln('Направление на Юг'); end;
     2: begin napr:=1; writeln('Направление на Cевер'); end;
     3: begin napr:=4; writeln('Направление на Запад'); end; 
     end;
   3: case kom of
     1: begin napr:=4; writeln('Направление на Запад');end;
     2: begin napr:=2; writeln('Направление на Восток');end;
     3: begin napr:=1; end;
     end;
   4: case kom of
     1: begin napr:=1; writeln('Направление на Cевер') end;
     2: begin napr:=3; writeln('Направление на Юг'); end;
     3: begin napr:=2; writeln('Направление на Восток'); end;
     end;
  end; 
end; until kom=0;
end.

const
  dirs: array [0..3] of string[6] = ('Север','Восток','Юг','Запад');
  cmds: array [1..3] of integer = (1,3,2);
var
  dir, cmd: integer;
begin
  repeat
    Write('Начальное направление (1..4): '); ReadLn(dir);
  until dir in [1..4]; dec(dir);
  repeat
    repeat
      Write('Команда (1..3, 0-выход): '); ReadLn(cmd);
    until cmd in [0..3];
    if cmd=0 then break;
    dir:=(dir + cmds[cmd]) mod 4;
    WriteLn('Направление на ',dirs[dir]);
  until false;
end.