Pascal, вопрос по коду.

[Wizard_Adeptus]

Здравствуйте, дорогие программисты. ) Я студент, пишу прграммку. Столкнулся с проблемой. Т. к. салага в этом деле, самостоятельно не могу разобраться. Помогите чем сможете? )
Почему условие if search <> 0 then не срабатывает при search = от 1 до 8? При search = 9 или 10, writeln ('Есть!') срабатывает. Почему??? Укажите студенту на его ошибки?

Program mission_5;
Uses
        crt;
Const
        N = 20;
        M = 3;
Type
        arr = array [0..20, 1..3] of string;
Var
        hill: arr;
        i, j: integer;
        str: string;

//////////////////////////////////////////////////////////////////////////////////
/////                       Поиск строки в массиве.
/////       Требует массив типа 'arr', размерность и искомое слово
//////////////////////////////////////////////////////////////////////////////////
Procedure searchWord (hill: arr; N, M: integer; str: string);
        var
                i, j, search: integer;
        begin
                for i := 1 to N do begin
                        for j := 1 to M do begin
                                search := pos(str, hill[i, j]);
                                writeln (search);
                        end;
                        if search <> 0 then
                                writeln ('Есть!');
                end;
        end;
///////////////////////////////////////////////////////////////////////////////////
Begin
        clrscr;
        writeln ('Задача №5');
        writeln ('---------');
        writeln ('Ввести в ЭВМ список характеристик N горных вершин мира,');
        writeln ('содержащий информацию вида (N<=20): Название Страна Высота.');
        writeln ('Обеспечить следующие виды операций со списком:');
        writeln ('  а) Определение самой высокой вершины;');
        writeln ('  б) Упорядочение списка по убыванию высоты;');
        writeln ('  в) Ввод некоторого названия по запросу, поиск его в списке');
        writeln ('     и выдача полной информации о запрошенной вершине.');
        writeln;
        writeln ('Решение:');
        writeln ('--------');

        //заранее введенный массив вершин
        hill[1, 1] := 'Джомолунгма';   hill[1, 2] := 'Непал';     hill[1, 3] := '8848 метров';
	hill[2, 1] := 'Аконкагуа';     hill[2, 2] := 'Аргентина'; hill[2, 3] := '6962 метра ';
	hill[3, 1] := 'Мак-Кинли';     hill[3, 2] := 'США';       hill[3, 3] := '6194 метра ';
	hill[4, 1] := 'Килиманджаро';  hill[4, 2] := 'Танзания';  hill[4, 3] := '5895 метров';
	hill[5, 1] := 'Эльбрус';       hill[5, 2] := 'Россия';    hill[5, 3] := '5642 метра ';
	hill[6, 1] := 'Пунчак-Джая';   hill[6, 2] := 'Индонезия'; hill[6, 3] := '4884 метра ';
	hill[7, 1] := 'Косцюшко';      hill[7, 2] := 'Австралия'; hill[7, 3] := '2228 метров';
	hill[8, 1] := 'Канченджанга';  hill[8, 2] := 'Индия';     hill[8, 3] := '8586 метров';
	hill[9, 1] := 'Манаслу';       hill[9, 2] := 'Непал';     hill[9, 3] := '8156 метров';
	hill[10, 1] := 'Нанга Парбат'; hill[10, 2] := 'Пакистан'; hill[10, 3] := '8126 метров';

        //вывод на экран
        writeln ('+---+--------------+---------------+---------------+');
        writeln ('  № |   НАЗВАНИЕ   |     СТРАНА    |     ВЫСОТА    |');
        writeln ('+---+--------------+---------------+---------------+');
        for i := 1 to N do begin
                if hill[i, 1] <> '' then
                        write (i: 3, ' |');
                for j := 1 to M do
                        if hill[i, j] <> '' then
                                write (hill[i, j]: 13, ' | ');
                if hill[i,j] <> '' then begin
                        writeln;
                        writeln ('+---+--------------+---------------+---------------+');
                end;
        end;
        writeln;
        readln (str);
        searchWord (hill, N, M, str);

        readln;

End.

[veniside]

потому что проверка условия "search <> 0" вынесена за цикл по j
Фактически, вы проверяете вхождение str только в элементы hill[i, M].

[Wizard_Adeptus]

Спасибо большое. Ошибку понял. Принимаю меры. )