Определить номер столбца, состоящего только из элементов от а до б

uses crt;
const n = 5;    { раззмерность массива}
      m = 5;
var i,j,k,c,a,b: integer;
    a1: array [1..n,1..m] of integer;
begin
 clrscr;
 { заполнение массива случайными числами }
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a1[i,j]:=random(50);
     write(a1[i,j]:4);
    end;
   writeln;
  end;
 {--------------------------------------}
 { определить минимальный номер столбца,
   состоящего только из элементов, принадлежащих
   промежутку от а до б;
   из элементов, кратных 2
 }
 write('a,b: ');
 readln(a,b); {интервал}
 for i:=1 to n do
  begin
   for j:=1 to m do
     if (a1[j,i]>=a) and (a1[j,i]<=b) then  {если есть элемент из промежутка}
      inc(k); {учитываем его}
     if k=m then {если кол-во учитываемых элемнтов = размерности текущего столбца}
      begin
       writeln('Мин. столбец из промежутка: ',i );  {выводим номер столбца на экран}
       break; {выходим из цикла, столбец найден}
      end
     else  {иначе}
      k:=0; {обнуляем счетчик количества учитываемых
        элементов и переходим к след. столбцу}
  end;
  if k=0 then {если после перебора всех столбцов не нашлось
               достаточного количества элементов}
   writeln('Столбцов с элементами из промежутка не существует'); {выводим соотв сообщ}
 {это уже поиск столбца с элементами, кратными 2}
 for i:=1 to n do
  begin
   for j:=1 to m do
    if not odd(a1[j,i]) then {элемент найден}
     inc(c);   {учитываем его}
     if c=m then  {если кол-во учитываемых элемнтов = размерности текущего столбца}
     begin
       writeln('Мин. столбец из четных чисел: ',i );  {выводим номер столбца на экран}
       break; {выходим из цикла, столбец найден}
      end
     else  {иначе}
      c:=0; {обнуляем счетчик количества учитываемых
        элементов и переходим к след. столбцу}
   end;
  if c=0 then {если после перебора всех столбцов не нашлось
               достаточного количества элементов}
   writeln('Столбцов с элементами, кратными 2, не существует'); {выводим соотв сообщ}
 readln;
end.

uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
var  a: matr;
     n,m,no: byte;
     r: boolean;
 
procedure Razmer (var ri,rj: byte);
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(rj);
until rj in [1..nmax];
end;
 
procedure Genprint (ri,rj: byte; var z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    begin
    for j:=1 to rj do
        begin
        z[i,j]:=random(19)-9;
        write(z[i,j]:4);
        end;
    writeln;
    end;
end;
 
function IsIn (nd,kd: integer; ri,ns: byte; z: matr): boolean;
var k,i: byte;
begin
k:=0;
for i:=1 to ri do
    if (z[i,ns]>=nd) and (z[i,ns]<=kd) then inc(k);
IsIn:=k=ri;
end;
 
procedure FirstNumber (ri,rj: byte; z: matr; var b: boolean; var q: byte);
var j: byte;
    nd,kd: integer;
begin
writeln('Укажите диапазон значений'); readln(nd,kd);
b:=false; j:=0;
while (not b) and (j<=rj) do
      begin
      inc(j);
      b:=IsIn (nd,kd,ri,j,z);
      end;
if b then q:=j;
end;
 
begin
Razmer (n,m);
Genprint (n,m,a);
FirstNumber (n,m,a,r,no);
if r then writeln('',no) else writeln('нет такого столбца');
readln;
end.

function IsIn (ri,ns: byte; z: matr): boolean;
var k,i: byte;
begin
k:=0;
for i:=1 to ri do
    if z[i,ns] mod 2=0 then inc(k);
IsIn:=k=ri;
end;
 
procedure FirstNumber (ri,rj: byte; z: matr; var b: boolean; var q: byte);
var j: byte;
    nd,kd: integer;
begin
b:=false; j:=0;
while (not b) and (j<=rj) do
      begin
      inc(j);
      b:=IsIn (ri,j,z);
      end;
if b then q:=j;
end;