Получить новую матрицу, поделив исходную на элементы главной диагонали (StringGrid)

var
  Form1: TForm1;
  a:array of array of real;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=40;
  scrollBars:=ssBoth
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=40;
  scrollBars:=ssBoth
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var  i,j,code:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,code);
if (code<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=n;
StringGrid2.ColCount:=n;
Setlength(a,n,n);
//создадим матрицу
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=10*random;
  StringGrid1.Cells[j,i]:=format('%.2f',[a[i,j]]);
 end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=a[i,j]/a[i,i];
  StringGrid2.Cells[j,i]:=format('%.2f',[a[i,j]]);
 end;
end;