стороны света, программа Опции

[Kristina20]

написать функцию с масивом, который содержит название сторон света:nord,east,south,west. Функция, полученное обозначение(1 или 2 буквы) переделывает в название направление стороны света.

[Bokul]

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

var
 ch : char;

begin
 read(ch);
 func(ch);
end.

Читай внимательно

полученное обозначение(1 или 2 буквы)

У тебе работает только с одной