Помогите с матрицой в Delphi

[neomaximus]

Помогите пожалуйста!!!!!!!!)))))
Вот задание:
Определить является ли заданное целое квадратной матрицы 10-го порядка симметрична относительно главной диагонали? Помогите!!! Заранее премного благодарен

[HoLToFF]

На сколько я понял, задача должна быть решена в консоле, вот какой код у меня получился:

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.