Нахождение обратной матрицы

[Linkfanka]

Даны 2 объекта StringGrid, задание размерности матрицы через PopupMenu. Вывести во второй StringGrid обратную матрицу(не транспонирование).

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Grids;
 
type
   TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    N1: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
 
 
    procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  result:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then PopupMenu1.Popup(0, 0);
end;
 
procedure TForm1.N21Click(Sender: TObject);
begin
result:=2;
stringgrid1.RowCount:=2;
stringgrid1.ColCount:=2;
end;
 
procedure TForm1.N31Click(Sender: TObject);
begin
result:=3;
stringgrid1.RowCount:=3;
stringgrid1.ColCount:=3;
end;
 
procedure TForm1.N41Click(Sender: TObject);
begin
result:=4;
stringgrid1.RowCount:=4;
stringgrid1.ColCount:=4;
end;
 
 
end.

[was3110]

Сначала найти определитель матрицы,
потом получить обратную (если определитель<>0, по алгоритму)
А если нужен готовый код, могу помочь... обращайтесь в личку