Получить одномерный массив, состоящий из номеров последних четных частей подходящих

Возможно вот так:
const nmax=15; var b:array[1..nmax,1..nmax] of integer;     a:array[1..nmax] of integer;     m,n,i,j:byte;     mx:integer; begin randomize; repeat write('Количество строк до ',nmax,' m='); readln(m); until m in [1..nmax]; repeat write('Количество столбцов до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Матрица В'); for i:=1 to m do  begin   for j:=1 to n do    begin     b[i,j]:=-50+random(101);     write(b[i,j]:4);    end;   writeln;