Массив: Получить массив В(15) типа boolean, присвоив k-му элементу значение true, если k-я строка симметрична

Const
  n=15;
  m=20;
Var
  a: Array[1..n,1..m] of Integer;
  b: Array[1..n] of Boolean;
  t,i,j: Byte;
BEGIN
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    a[i,j]:=Random(10);
    Write(a[i,j]:3);
  end;
  Writeln
end;
For i:=1 to n do
begin
  t:=0;
  For j:=1 to m div 2 do
  If a[i,j]=a[i,m-j+1] Then
  Inc(t);
  If t=m div 2 Then
  b[i]:=True
  Else
  b[i]:=False;
end;
Writeln('Массив B: ');
For i:=1 to n do
Write(b[i],' ');
END.

Uses crt;
Var
  a: Array[1..10,1..10] of Integer;
  b: Array[1..10] of Boolean;
  t,i,j,n,m: Byte;
BEGIN
Write('Введите кол-во строк: ');
Readln(n);
Write('Введите кол-во столбцов: ');
Readln(m);
Writeln('Введите элементы матрицы: ');
For i:=1 to n do
For j:=1 to m do
begin
  Writeln('[',i,';',j,']=');
  Readln(a[i,j]);
end;
Clrscr;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  Write(a[i,j]:5);
  Writeln
end;
For i:=1 to n do
begin
  t:=0;
  For j:=1 to m div 2 do
  If a[i,j]=a[i,m-j+1] Then
  Inc(t);
  If t=m div 2 Then
  b[i]:=True
  Else
  b[i]:=False;
end;
Writeln('Массив B: ');
For i:=1 to n do
Write(b[i],' ');
END.