[AlenkaV]

for i := 1 to n do
      begin
            for j := 2 to k do
                  begin
                    b[i, j] := min(b[i, j - 1], min(b[i + 1, j - 1], b[i - 1, j - 1])) + 10 / a[i, j];
                  end;
      end;
вот в этих 7 строчках косяк... дяже скорей всего косяк в самом присваивании...но я не понимаю, где он!!!!