обратная матрица

[LastBreath]

Как найти обратную матрицу методом Гаусса??Подскажите пожалуйста..
вот такой способ забраковали :

procedure ed(var e:matr);      //единичная матрица
var i:integer;
begin
for i:=0 to n-1 do
e[i,i]:=1;
end;

procedure mult(b:matr; var e:matr; i1:integer; r:real);  //умножение на число в столбце
var j:integer;
begin
for j:=0 to n-1 do
begin
b[i1,j]:=b[i1,j]*r;
e[i1,j]:=e[i1,j]*r;
end;
end;

procedure add(b:matr; var e:matr; i1,i2:integer; r:real);   //преобразование столбца
var j:integer;
begin
for j:=0 to n-1 do
begin
b[i1,j]:=b[i1,j]+r*b[i2,j];
e[i1,j]:=e[i1,j]+r*e[i2,j];
end;
end;

function sign(r:real):integer;                     //определение знака
begin
if (r>=0) then sign:=1
else sign:=-1;
end;

procedure obrat(b:matr; var e:matr);              //нахождение обратной матрицы методом Гаусса
var i,j:integer;
begin
for i:=0 to n-1 do
begin
for j:=i+1 to n-1 do
add(b,e,i,j,sign(b[i,i])*sign(b[j,i]));
for j:=i+1 to n-1 do
add(b,e,j,i,-b[j,i]);
mult(b,e,i,1/b[i,i]);
for j:=i+1 to n-1 do
add(b,e,j,i,-b[j,i]);
end;
for i:=n-1 downto 0 do
for j:=0 to i-1 do
begin
add(b,e,j,i,-b[j,i]);
end;
end;

А как ещё можно?? прошу помогите, если не сдам лабу не допустят до сессии...

[Serebro]

Здесь посмотри.