Помогите найти ошибку в коде программы Delphi

[Алина505]

Здесь описан алгаритм работы венгерского методаНовая папка.zip

[evg_m]

function IndependentNul(C:TMatr; m,n:Integer; var t:boolean):integer;
.........
          while (i<= max_nm-1) and (Linenul[i]<>count) do
///////////////////////////////////// ??? ЗДЕСЬ НАВЕРНОЕ НУЖЕН begin 
            i:=i+1;

               while (j<=max_nm-1) and(columnnul[j]<>count) do
//тот же вопрос!!!!!!!!!!
                 j:=j+1;