Вывести на экран новое направление движения корабля

type
  TDirect = (N, S, W, E);
  TTurn = (L, R, F, B);
 
 
const
  MatrixMove : array[TDirect, TTurn] of TDirect =
    ( (W,E,N,S),
      (E,W,S,N),
      (S,N,W,E),
      (N,S,E,W)
     );
 
const
  DisplayDirection : array[TDirect] of string[1] =
    ('N', 'S', 'W', 'E');
 
var
  Dir  : TDirect;
  Turn : TTurn;
  ts   : char;
begin
  repeat
    Write('Vvedite napravlenie korablay (N,S,W,E): ');
    Readln(ts)
  until ts in ['N', 'S', 'W', 'E'];
 
  Dir := N;
  While DisplayDirection[Dir]<> ts do Dir := Succ(Dir);
 
  repeat
    Write('Vvedite napravlenie povorota (L, R, F, B): ');
    Readln(ts)
  until ts in ['L', 'R', 'F', 'B'];
 
  case ts of
    'L':  Turn := L;
    'R':  Turn := R;
    'F':  Turn := F;
    'B':  Turn := B;
  end;
 
  WriteLn('Nachalnoe napravlenie = ', DisplayDirection[Dir]);
 
  WriteLn('Napravlenie posle povorota = ',
     DisplayDirection[ MatrixMove[ Dir, Turn] ]);
 
  ReadLn
 
end.

const dirs: String='NESW'; cmds: String='LFRB';
var
  dir, p: Integer;
  c: Char;
begin
  repeat
    Write('Направление [',dirs,']: '); ReadLn(c);
    dir:=Pos(UpCase(c),dirs);
  until dir<>0;
  repeat
    Write('Команда [',cmds,'E]: '); Read(c);
    c:=UpCase(c); p:=Pos(c,cmds);
    if p>0 then Inc(dir,-2+p);
    if dir<1 then Inc(dir,4)
    else if dir>4 then Dec(dir,4);
    WriteLn('направление: ',dirs[dir]);
  until c='E';
end.