program p;

function func (var ch : string) : string;
 const
  ss : array [1..4] of string=('nord','west','east','south');
 var
  k1,k2,i,j : integer;
 begin
  k1:=0;
  k2:=0;
  if length(ch)=2 then
   begin
      for i:=1 to 4 do if pos(ch[1],ss[i])=1 then k1:=i;
      for i:=1 to 4 do if pos(ch[2],ss[i])=1 then k2:=i;
      if (k1<>0) and (k2<>0) and(ch[1]<>ch[2])then write(ss[k1],' ',ss[k2])
      else write('Не существует такой стороны!');
   end;
  if length(ch)=1 then
   for i:=1 to 4 do if pos(ch[1],ss[i])=1 then write(ss[i]);
 if length(ch)>2 then write('Не существует такой стороны!');
 end;
var
 ch : string;

begin
 write('Введите 1 или 2 буквы ch=');
 readln(ch);
 func(ch);
end.