역행렬 코드나 힌트가 될만한 것들이 있으면 부탁드려요..

인터넷에 C코드는 많은데;;
C코드를 변환해서 쓰려고하니깐 잘안되네요ㅠㅠ 계속 삽질;;;ㅠㅠㅠㅠㅠㅠ;;;;;;;;;;;;;;;;;;;;;

예를 들면
inverse()
{
int i, j, k;
double p, q;

////////////////////////////////////////////////////////// 현재 작성코드

     for i := 1 to n do
     begin
          for j := n + 1 to 2 * n do
          begin
               if j = n + i then
                    a[i][j] := 1
               else
                    a[i][j] := 0;
          end;
     end;

     for i := 1 to n do
     begin

          for p := a[i][i] to  (2 * n) do //에러
          begin
               a[i][j] := a[i][j] / p;
          end;
         
          for k := 1 to n do
          begin
               if k <> i then
               begin
                    for q := a[k][i] to   (2 * n) do  // 에러
                         a[k][j] := a[k][j] - (q * a[i][j]);


               end;
          end;


     end;
/////////////////////////////////////////////////////////////////////

도와주세요ㅠㅠ