По массиву А получить массив b - PascalABC.NET

const m = 6;
 
var a: array [1..m, 1..m] of integer;
    b: array [1..m] of boolean;
    i, j, n: integer;
 
begin
  repeat
    write('Enter range of matrix [1..', m, ': ');
    readln(n)
  until n in [1..m];
  writeln('Enter elements of matrix A:');
  for i := 1 to n do
    for j := 1 to n do
      begin
        write('A[', i, ', ', j, '] = ');
        readln(a[i, j])
      end;
  writeln('Source matrix:');
  for i := 1 to n do
    begin
      for j := 1 to n do write(a[i, j]:12);
      writeln
    end;
  for i := 1 to n do
    for j := 2 to n do
      begin
        b[i] := a[i, j - 1] > a[i, j];
        if not b[i] then break
      end;
  writeln('Result array:');
  for i := 1 to n do write(b[i]:6);
  readln
end.