Минор....

[Knopka666]

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

А можно попросить пояснить за что отвечает переменные ki,kj,di,dj.....

[Alar]

Что значит минор? требую адекватно называть темы. название темы должно отражать суть вопроса!