Симетричность матрицы в delphi

[neomaximus]

Вот задание: Определить является ли заданное целое квадратной матрицы 10-го порядка симметрична, относительно главной диагонали.
Нужно форму подобную


Есть что то подобное на консоле

program Simmetr;

{$APPTYPE CONSOLE}

uses
SysUtils;

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
readln(ms[i,j]); // Ввод матрицы


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

writeln(fl);
readln;
readln
end.

[Sazary]

Так тут все то же самое. Только ввод-вывод поменяется.
Что конкретно непонятно?

[neomaximus]

Как написать не в консоле

[Stilet]

Например так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(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;

end.

[neomaximus]

Ругается на const

[Stilet]

А у меня не ругается. Что я не так сделал?

[neomaximus]

Может что я не так сделал
Скинь сюда ее, я проверю себя(всю прогу и допю файлы)

[Stilet]

Дык че скидывать? Вон выше весь код полностью.

[neomaximus]

На форме просто создать StringGrid1? Больше ничего не надо?

[Stilet]

Надо поставить ему в Options dgEditing
В Гриде прописать 10 колонок и строк по умолчанию
Потом Создать Button на клик которого повесить тот код.
Ну и ввести в Грид цыфирь.