помогите написать программу с помошью TStringGrid

[SYL@R]

Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно побочной диагонали.

[vovk]

.................

[SYL@R]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
StringGrid1: TStringGrid;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
Dim = 10;
var
Form1: TForm1;
n,m,i,j:integer;
a:array[1..Dim, 1..Dim] of Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
N:=StrToInt(Edit1.Text);
M:=StrToInt(Edit2.Text);
StringGrid1.ColCount:=N+1;
StringGrid1.RowCount:=M+1;
for i:=1 to N do begin
StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid1.Cells[i,0]:=' i= '+IntToStr(i);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
for i := 1 to m do
for j := 1 to n do
begin
a[i,j]:=random(100)+1;
end;

for i := 1 to m do
begin
for j := 1 to n do
StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
end;

end;
end.

[StarWorm]

У меня есть данная программи на С++, не надо?

[SYL@R]

нет не надо,надо в делфи