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

uses crt;
var
  sch: integer;  {если его значение равно количеству строк то столб нечетный}
  i,j: integer;  {номер строки/элемента}
  p: integer;    {переменная для уведомления}
  str,stb: integer; {ограничение строки/столбца}
  a: array[1..10,1..10] of integer; {массив от 1 до 10}
begin
clrscr;
randomize;
write('Сколько строк будет в матрице? - ');
readln(str);
write('Сколько столбцов будет в матрице? - ');
readln(stb);
//------------------------------------------------------------------------------
  for i:=1 to str do
  for j:=1 to stb do
  begin
  write('Введите ',j,'-ый элемент ',i,'-й строки - ');           //ввод матрицы
  readln(a[i,j]);
  end;
//------------------------------------------------------------------------------
  for i:=1 to str do
begin
  for j:=1 to stb do
    write (' ', a[i, j]:5);                                     //вывод матрицы
    writeln('');
end;
//------------------------------------------------------------------------------
  for j:=1 to stb do
begin
  for i:=1 to str do
    if 1=a[i,j] mod 2 then
      inc(sch)
    else sch:=0;                                      //поиск нечетного столбца
      if sch=str then
        begin
          writeln('Это ',j,'-ый столбец');
          p:=1;
          halt; //досрочное завершение программы
        end;
//------------------------------------------------------------------------------
end;
  if p=0 then
    writeln('Такого столбца не существует');
end.

uses crt;
var a: array [1..10,1..10] of integer;
    i,j,n,m,ns,k: integer;
begin
writeln('Введите размерность массива n,m=');
readln(n,m);
writeln('Введите массив');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
    end;
writeln('Дан массив');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:3);
    writeln;
    end;
for j:=1 to m do
    begin
    k:=0;
    for i:=1 to n do
        if abs(a[i,j]) mod 2=1 then inc(k);
    if k=n then
       begin
       ns:=j;
       break;
       end;
    end;
writeln('Только нечетные в ',ns,' столбце');
readkey
end.