Pascal/Turbo Pascal - inversa de matriz

favor .. necesito sacar la inversa de esta matriz , el metodo que conosco es el de matrices cuadradas de 2 x 2 , pero que no se aplica a este ejercicio que es unas matriz de n x n .
estare muy AGRADECIDO.


Program tarea;
uses crt;

type
matriz=array [1..100][1..100] of integer;
var
mat: matriz;
n:integer;

function esprimo(num:integer):boolean;
begin
esprimo=TRUE;
for i:=1 to (num div 2) do
begin
if (num mod i) = 0 then
begin
esprimo= FALSE;
end;
end;
end;

procedure cargarMat;
begin
write("N= ");
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
write("valor para Mat[",i,",",j,"]=");
readln(mat[i,j]);
end;
end;
end;

procedure inversaMat;

osskart: si tu tienes el programa de la inversa de la matriz favor mandarmelo a mi tambien, que yo quiero saber como se hace.

Gracias...................................