Вывести на экран новое направление движения корабля - Turbo Pascal - Ответ 6764714

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.