в цикле ошибка "Range check error"

[vitaliy1911]

procedure Troute_unit.proc3(input, output: integer; route_res: array of integer);
begin
  f:=0;
  k:=1;
  xf:=pnt[output].x;
  yf:=pnt[output].y;

  while f<>1 do
    begin
      win:=pnt[input].n[1];
      for j := 1 to 9 do
       begin
        if pnt[input].n[j]=output 
          then f:=1 else
        if (pnt[input].n[j]<>0)
        and ((abs(pnt[pnt[input].n[j]].x-xf)+(abs(pnt[pnt[input].n[j]].y-yf))<(abs(pnt[win].x-xf))+abs(pnt[win].y-yf)))
          then win:=pnt[input].n[j];
       end;
       route_res[k]:=win;
       inc(k);
       input:=win;
    end;

end;

Странно, что в консольном варианте цикл работает нормально, а вот после того как я описал его в процедуре класса, стал вываливается с ошибкой "range check error"
Дело в том, что массив pnt[input].n состоит из различных цифр и нулей, причем нули всегда идут в конце. Так вот, когда цикл доходит до первого нуля, на строчке (красная) он как раз и выдает ошибку. Если в массиве 3 цифры, остальные нули, то вываливается на четвертом цикле, если 6 цифр, то вываливается на 7 и т.д.

[Аватар]

Разбейте длинные выражения в этом ифе на отдельно вычисления в промежуточные переменные, точку останова и в пошаговой трассировочке вычислите где вываливается прога за пределы массива или отрицательный индекс

[GunSmoker]

Читать и думать №1.
Читать и думать №2.

Если читать и думать неохота - вообще-то отладчик при возбуждении исключения тыркает вас в строчку и показывает стек вызова. Ну так и посмотрите, какие значения имеют переменные и выражения в проблемном месте. Как это сделать.

[vitaliy1911]

Сообщение от Аватар

Разбейте длинные выражения в этом ифе на отдельно вычисления в промежуточные переменные, точку останова и в пошаговой трассировочке вычислите где вываливается прога за пределы массива или отрицательный индекс

все сделал как вы сказали, само заработало, сам не понял почему, но большое спасибо

Сообщение от GunSmoker

Читать и думать №1.
Читать и думать №2.

Если читать и думать неохота - вообще-то отладчик при возбуждении исключения тыркает вас в строчку и показывает стек вызова. Ну так и посмотрите, какие значения имеют переменные и выражения в проблемном месте. Как это сделать.

уже заработало, за ссылки спасибо, прочитаю обязательно. Кстати с удовольствием читаю ваш блог, интересно