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

[Kristina20]

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

[Bokul]

Вот функция, но она не правильно работает - возвращает название сторони только последней буквы str.

function world(str:string):string;
const mas:array[1..4] of string[5]=('nord',
                                    'east',
                                    'south',
                                    'west');
var i,j:byte; buf:string;
begin
buf:='';
for i:=1 to length(str) do;
    for j:=1 to 4 do
        if str[i]=mas[j][1] then
           buf:=buf+' '+mas[j];
world:=buf;
end;

А когда делаю такую проверку

const mas:array[1..4] of string[5]=('nord',
                                    'east',
                                    'south',
                                    'west');
var i,j:byte; buf:string;
begin
buf:='';
for i:=1 to length(str) do;
    begin
            writeln('i = ',i);
            readln;
    for j:=1 to 4 do
        if str[i]=mas[j][1] then
           buf:=buf+' '+mas[j];
     end; 
world:=buf;
end;

то і выводиться только один раз и равняется length(str), даже когда длинна str больше 1.
Где ошибка?

Сообщение отредактировано: volvo - 2.11.2006 21:56

[RaV]

Вот они ошибки!

function world(str:string):string;
const mas:array[1..4] of string[5]=('nord',
                                    'east',
                                    'south',
                                    'west');
var i,j:byte; buf:string;
begin
buf:='';
for i:=1 to length(str) do{<----удалить эту строку }
    for j:=1 to 4 do
        if (str[1]=mas[j][1]) and (str[2]=mas[j][2]) then{<--Здесь изменено}
           buf:=mas[j];
world:=buf;
end;

И все нормально будет.
Только если вводить 1 или 2 буквы!!!Иначе по первым двум будет выводить сторону света.