Рекурсия, детерминант матрицы с помощью рекурсии Опции

[setare]

Здравствуйте!
Нам дали задачу на определение детерминанта матрицы с помощью рекурсии и сказали что часть этой задачи можно посмотреть в учебнике. Эта часть состояла в вычеркивании столбца и строки. И как раз эта часть доставила нам очень много хлопот для понимания. Короче мы ничего не поняли. Не могли бы вы мне объяснить как они написали эту часть проги. Большое спасибо!

Код

procedure GetMatr(a:matr; var b:matr; m,i,j:integer);
{ Вычеркивание из матрицы строки и столбца }
var ki,kj,di,dj:integer;
 begin
 di:=0;
 for ki:=1 to m-1 do
   begin
   if (ki=i) then di:=1;
   dj:=0;
   for kj:=1 to m-1 do
     begin
     if (kj=j) then dj:=1;
     b[ki,kj]:=a[ki+di,kj+dj];
     end;
   end;
 end;

Что могут означать di dj и тд.?
Код должен быть в тегах

[volvo]

Ну а если я перепишу эту процедуру вот так:

Код

procedure GetMatr(a:matr; var b:matr; m,i,j:integer);
 var ki,kj:integer; curr_i, curr_j: integer;
 begin
   curr_i := 1;
   for ki := 1 to m do begin
     if ki <> i then begin
       curr_j := 1;
       for kj := 1 to m do begin
         if kj <> j then begin
           b[curr_i, curr_j] := a[ki, kj];
           curr_j := curr_j + 1;
         end;
       end;
       curr_i := curr_i + 1;
     end;
   end;
 end;

Алгоритм по-моему стал понятнее...