Проверьте правильность написания кода в delphi

[neomaximus]

Вот зание : Определить является ли заданное целое квадратной матрицы 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.

[Stilet]

Ну а сам то проверял ее?

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

А я бы так сделал:

i :=1; while (i<=n)and(fl) do begin
 j:= 1; while (J<=n)and(fl) do begin
  if ms[i,j] <> ms[n-i+1,n-j+1] //если элемент не симметричен
   then fl:=False; // то флаг симметричности сделать ложным
end; end;

ТОлько помоему там по другому все равно проверять надо...

[neomaximus]

ТОлько помоему там по другому все равно проверять надо...

Это как?