{MATINV.BSP:}
{$I DECL.TLD}
{$I SYSTEM1.TLD}
{$I SYSTEM2.TLD}
{$I DECL.CPL}
{$I MAT1.TLD}
{$I MAT2.TLD}
{$I MAT1.CPL}
{$I MAT2.CPL}
{$I IO3.CPL}

var a,b:ComplexMatrixType_TLC;
  anzahl:integer;
begin
  InitIO;
  clrscr;
  writeln('Inversion einer komplexen Matrix');
  SetInputFieldLength(1);
  anzahl:=ReadIntNumber(1,3,2,9,'Matrixordnung');
  SetInputFieldLength(4);
  SetRealRange(-999,999);
  input_mat_c(1,3,a,anzahl,console,'Eingabe der Matrix');
  b:=a;
  invert_mat_c(b,anzahl);
  clrscr;
  print_mat_c(1,1,b,anzahl,console,'Die komplexe inverse Matrix');

  mult_mat_c(a,b,b,anzahl);

  repeat until keypressed;

  clrscr;
  print_mat_c(1,1,b,anzahl,console,'Die Einheitsmatrix (Test der Matrix-Inversion)')
end.