Массив: Определить, является ли последовательность элементов некоторого столбца массива упорядоченной по невозрастанию

const n=4;
var i,j:byte; flag:boolean;
  a:array[1..n,1..n]of integer;
  b:array[1..n]of integer;
 
begin
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(76)-25;
      write(a[i,j]:4); end;
    writeln; end;
  writeln;
  
  for i:=1 to n do
    for j:=1 to n do
      if j=2 then begin
        b[i]:=a[i,j];
        write(b[i]:4); end;
  writeln;
  for i:=1 to n-1 do
      if b[i]>b[i+1] then
        flag:=true
      else begin
        write('Элемент ',b[i],' нарушил упорядоченность');
        break; end;
        
  if flag then
    write('Последовательность является упорядоченной по невозрастанию');
end.

      if b[i]>=b[i+1] then

const
  n = 4;
var
  i, j, k: byte;
  flag: boolean;
  a: array[1..n, 1..n] of integer;
begin
  randomize;
  writeln('Массив:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          a[i, j] := random(76) - 25;
          write(a[i, j]:4)
        end;
      writeln
    end;
  writeln;
  write('Введите номер столбца: ');
  readln(k);
  for i := 2 to n do
    begin
      flag := a[i - 1, k] >= a[i, k];
      if not flag then
        begin
          write('Элемент A[', i, ', ', k, '] нарушает упорядоченность столбца ', k, ' по невозрастанию');
          break
        end
    end;
  if flag then write('Столбец ', k, ' является упорядоченным по невозрастанию')
end.