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

program pr1;
const WG=100;
type tmati=array[1..WG,1..WG] of integer;
var n,m,i:byte; a:tmati; pr:boolean;
(*прцедура ввода элементов матрицы*)
procedure pr_wod_matr(var n1,m1:byte; var mas:tmati);
var i,j:byte; kl:byte;
begin
  writeln('Введи размерность матрицы n,m');
  readln(n1,m1);
  writeln('1-ввод случайным образом, 2-ввод с клавиатуры');
  readln(kl);
  if kl=1 then randomize;
  for i:=1 to n1 do
   for j:=1 to m1 do
    case kl of
    1:mas[i,j]:=random(256);
    2:begin
        writeln('Введи элемент',i,' строки ',j,' столбца матрицы');
        readln(mas[i,j]);
      end;
  end;
end;
(*процедура вывода элементов матрицы*)
procedure pr_out_matr(n1,m1:byte; mas:tmati);
var i,j:byte;
begin
   writeln('Матрица');
   for i:=1 to n1 do
   begin
     for j:=1 to m1 do
     write(mas[i,j]:6);
     writeln;
   end;
end;
function f_st(n,st:byte; a:tmati):boolean;
var i:byte;
begin
  f_st:=true;
  for i:=1 to n do
  if not odd(a[i,st]) then begin f_st:=false; break; end;
end;
begin
  pr_wod_matr(n,m,a);
  pr_out_matr(n,m,a);
  pr:=true;
  writeln('Столбцы в массиве со всеми нечетными элементами:');
  for i:=1 to m do
  if f_st(n,i,a) then begin writeln(i);pr:=false;end;
  if pr then writeln('отсутствуют');
end.