Вывести ориентацию локатора после выполнения данных команд

var
  N1, N2, N, i: shortint;
  S, P: char;
  f: boolean; {Индикатор правильности введённой команды.
              f = true - команда верная
              f = false - команда неверная.}
 
{Далее описана дополнительная процедура ввода-вывода,
которая используется в основной программе: }  
 procedure InputOutput(S1: string);
 begin
  {Выводим направление: }
   writeln('  Направление - ', S1, '.');
   writeln;
  {Запрашиваем ввод команд: }
   write(' Введите две команды (-1, 1 или 2):');
   write('  ');
   readln(N1, N2)  //Вводим два номера
 end;
 
{Дополнительная процедура поворота локатора: возвращает
направление локатора после посланной ему одной команды
(N1 или N2). Используется в основной программе.}
 procedure Povorot(N: shortint; var S1: char);
 var
   t: char;
 begin
  {S1 - основная переменная, t - промежуточная.}
   t := S1; //Инициализация промежуточной переменной.
  {ДАЛЕЕ проверяем команды -1, 1 и 2: }
   case N of
   {Проверяем направление вправо: }
    -1: case t of
          'С': S1 := 'В'; //север - восток
          'З': S1 := 'С'; //запад - север
          'Ю': S1 := 'З'; //юг - запад
          'В': S1 := 'Ю'  //восток - юг
        end;
    {Проверяем направление влево: }    
     1: case t of
          'С': S1 := 'З'; //север - запад
          'З': S1 := 'Ю'; //запад - юг
          'Ю': S1 := 'В'; //юг - восток
          'В': S1 := 'С'  //восток - север
        end;
    {Проверяем поворот на 180 градусов: }    
     2: case t of
          'С': S1 := 'Ю'; //север - юг
          'З': S1 := 'В'; //запад - восток
          'Ю': S1 := 'С'; //юг - север
          'В': S1 := 'З'  //восток - запад
        end    
   end
 end;
 
{ОСНОВНАЯ ПРОГРАММА:}
begin
  S := 'С'; //Начальное направление на север.
  f := true; //пока что никакой команды нет.
 {Вызываем дополнительную процедеру по выводу
 результата и ввода значений N1 и N2: }
  InputOutput(S);
 {Далее продолжаем в цикле. Это делается для того,
 чтобы каждый раз не запускать программу, а только
 вводить новые значения: }
  repeat
   {Повторяем два раза (по количеству команд): }
    for i := 1 to 2 do
     begin
       case i of
         1: N := N1; //Для первой команды.
         2: N := N2  //Для второй команды.
       end;
     {Если команда выходит за границы дозволеного значения,}
       if (N < -1)or(N = 0)or(N > 2) then
        begin
          f := false; //то сообщаем о неверной команде
          break //и выходим из данного цикла for.
        end;
     {Если все ещё команда правильная, то вызываем процедуру
     Povorot, которая возвратит нам результат выполнения
     команды N (N1 или N2). Этим значением будет новое
     направление ориентации локатора:}
       if f = true then Povorot(N, S)
     end;
   {Если мы ещё не вышли из цикла, то вызываем процедуру
   для вывода результата и ввода новых команд: }
    if f = true then InputOutput(S)
 {И так до тех пор, пока не введём неверную команду:}   
  until f = false;
 {А если команда введена неверная, то сообщаем об ошибке:}
  writeln;
  writeln(' Вы ввели неверную команду.');
  write('  Конец.')
end.