Проверьте правильность программы

[neomaximus]

Проверьте правильность написания программы
Вот код:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mas:array[1..100,1..100] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
const
n = 10; //Размерность матрицы

var
ms: array[1..n,1..n] of integer;
i, j: integer;
fl: boolean; // флаг симметричности

begin
{ TODO -oUser -cConsole Main : Insert code here }
fl:=True;

for i :=1 to n do
for j:= 1 to n do
ms[i,j]:=StrToInt(StringGrid1.Cells[i,j]); // Ввод матрицы


for i :=1 to n do
for j:= 1 to n do
if ms[i,j] <> ms[j,i] //если элемент не симметричен
then fl:=False; // то флаг симметричности сделать ложным
caption:=BoolToStr(fl,true);
end;


procedure TForm1.Button1Click(Sender: TObject);

var i,ms,j:integer;
begin
randomize;
for i:=1 to 9 do begin
for j:=1 to 9 do begin
ms[i,j]:=random(2);
stringgrid1.Cells[j,i]:=inttostr(mas[i,j]);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end.

[Sazary]

А вы не считаете нужным сказать, что эта программа делает? Или, например, исправить синтаксические ошибки (нашел штуки две)?

Размер матрицы то 9, то 10.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;

procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mas:array[1..100,1..100] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
const
n = 9; //Размерность матрицы
var
ms: array[1..n,1..n] of integer;
i, j: integer;
fl: boolean; // флаг симметричности

begin
fl:=True;

for i :=1 to n do
 for j:= 1 to n do
  ms[i,j]:=StrToInt(StringGrid1.Cells[i,j]); // Ввод матрицы

for i :=1 to n do
 for j:= 1 to n do
  if ms[i,j] <> ms[j,i] //если элемент не симметричен
   then fl:=False; // то флаг симметричности сделать ложным

Form1.Caption := BoolToStr(fl);
end;


procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;
begin
randomize;
for i:=1 to 9 do
 begin
 for j:=1 to 9 do
  begin
  mas[i,j]:=random(2);
  stringgrid1.Cells[j,i]:=inttostr(mas[i,j]);
  
  end;
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

end.

[galaid]

neomaximus, скажи условия задачи, а то непонятно что зделать надо.

[neomaximus]

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