Не могу разобраться с процедурой.

[Winterfox]

Процедура должна вычёркивать из матрицы заданные строки и столбцы. Но почему-то она не всегда работает корректно.

PHP код:

procedure GetMatr(a:matr; var b:matr; m,i,j:integer); 
{m-размер матрицы; i,j - номер строки и столбца}
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;