Вывести направление робота после выполнения полученной команды

 program Robot;
const c='sever';z='zapad';y='yg'; v='vostok';
var a,b:integer;
begin
writeln('введите направление');
readln(a);
case a of
if a=c then
writeln('sever') else
if a=z then
wrilen('zapad') else
if a=y then
writeln ('yg') else
if a=v then
writeln('vostok') else
readln; end;
writeln('введите команду');
readln(b);
case b of
1: writeln('поворот на лево');
2: writeln('поворот на право');
0: writeln('продолжить направление');
readln; end.

{ Case10. Робот может перемещаться в четырех направлениях 
(«С» — север, «З» — запад, «Ю» — юг, «В» — восток) и принимать 
три цифровые ко-манды: 0 — продолжать движение, 1 — поворот налево, 
–1 — поворот на-право. Дан символ C — исходное направление робота и 
целое число N — посланная ему команда. 
Вывести направление робота после выполнения полученной команды. }
program case10;
var
  dir, dir2: char;
  com: integer;
begin
  readln(dir);
  readln(com);
  case dir of
    'С':
    case com of
      -1: dir2 :='З';
       1: dir2 :='В';
    else
      dir2 := dir;
    end;
      
    'З':
    case com of
      -1: dir2 :='Ю';
       1: dir2 :='С';
    else
      dir2 := dir;
    end;
 
    'Ю':
    case com of
      -1: dir2 :='В';
       1: dir2 :='З';
    else
      dir2 := dir;
    end;
 
    'В':
    case com of
      -1: dir2 :='С';
       1: dir2 :='Ю';
    else
      dir2 := dir;
    end;
  end;
 
  writeln(dir2);
end.