SoloCodigo

Estoy tratando de programar en Pascal para poder calcular la inversa de una matriz triangular inferior de F*F, el codigo que escribi es el siguiente, sin embargo cuando la calculo todas las componenete se hacen 0, no se que es lo que hago mal, agradeceria muchisimo si alguien me puede ayudar.

Muchisimas Gracias. Bruno.

Procedure invertir_matriz(F:integer;var A:matriz; var C:matriz);
var i,j,k:integer; suma:real ;
Begin

      for i:=1 to F do
        begin
         C[i,i]:= 1/A[i,i];
        end;


      for j:=1 to F do
          for i:=j+1 to F do
              Begin
                   suma:=0;
                   for k:=1 to i-1 do
                      Begin
                           suma:= suma + A[i,k]*C[k,j];
                           C[i,j]:= - suma / A[i,i];
                      End;
              End;
End;