Сформировать одномерный массив из номеров столбцов, элементы которых образуют возрастающую последовательность

Program main;
uses crt;
type matr=array [1..8,1..12] of integer;
   function nom(m:matr; j:integer):boolean;
   var i:integer; flag:boolean;
    begin
    flag:=true;
    for i:=1 to 3 do
    if m[i+1,j]>m[i,j] then nom:=flag
    else begin
      flag:=false;
      nom:=flag;
      break;
   end; end;
var b:array[1..12] of integer;
a:matr; i, j:integer;
begin
clrscr; randomize;
  for i:=1 to 3 do  begin
  for j:=1 to 3 do begin
  a[i,j]:=random(100);
  write (a[i,j]:3, ' ');
  end;
  writeln;
  end;
   for j:=1 to 3 do begin
   if nom (a,j) then begin  b[j]:=j;
   write (b[j]:3, ' ');
   end
   else begin
   writeln ('Столбцов удовлетворяющих условию нет');
   break;
  end; end;
 readln;
end.

    for i:=1 to 2 do

   end; end;
   j := 0;
   for i := 1 to 3 do if b[i] <> 0 then inc(j);
   if j = 0 then writeln ('Столбцов удовлетворяющих условию нет');
 readln;
end.

  end;
   i := 0;
   for j:=1 to 3 do begin
   if nom (a,j) then begin
   inc(i);
   b[i]:=j;
   write (b[i]:3, ' ');
   end; end;
   if i = 0 then writeln ('Столбцов удовлетворяющих условию нет');
 readln;
end.