Матрицы: цикл деления!

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a:array[0..4,0..4] of integer;
  i,j:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to 4 do
for j:=0 to 4 do
a[i,j]:=random(5);
for i:=0 to 4 do
for j:=0 to 4 do
StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=0 to 4 do
for j:=0 to 4 do begin
if i=j then
if i=j then a[i,j]:=(a[i,j])/(a[2,2]);
StringGrid2.Cells[i,j]:=IntToStr(a[i,j]);
end;
end;
 
 
end.

procedure TForm1.Button2Click(Sender: TObject);
var
    i, j : integer;
begin
    for i:=0 to 4 do
        for j:=0 to 4 do 
            StringGrid2.Cells[i,j]:=FloatToStr(a[i,j]/a[j,j]);
end;
 
//Это при условии что матрица квадратная. Если же прямоугольная
 
procedure TForm1.Button2Click(Sender: TObject);
var
    i, j : integer;
begin
    for i:=0 to 4 do
        for j:=0 to 4 do 
            if j<3 then StringGrid2.Cells[i,j]:=FloatToStr(a[i,j]/a[j,j]);
end;