eliminasi matriks gauss-jordan

hi .... ne adalah code untuk membuat penyelesaian persamaan linear dengan menggunakan eliminasi matriks gauss-jordan.....


implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
stringgrid1.RowCount:=strtoint(edit1.Text);
stringgrid1.colCount:=strtoint(edit1.Text)+1;
end;