Найти все нечетные элементы матрицы

  Program ab;
var
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
k,n,i,j,g,h,c,d,f,l:integer;
procedure nech(a:integer;var b:integer);
var v,f,g:integer;
begin
  if a mod 2=1 then
    b:=b+1;
end;
procedure nechm(a,n,c:integer;var b:integer);
var k,l:integer;
begin
 if a mod 2=1 then
   for k:=n to c do
     b:=a;
   end;
begin
  h := 0;
  writeln('Введите количество строк');
readln(n);
writeln('Введите количество столбиков');
readln(g);
writeln('Введите элементы массива');
 for j:=1 to n do
 for i:=1 to g do
 readln(a[j,i]); 
 for j:=1 to n do
 for i:=1 to g do
   nech(a[j,i],h);
   writeln('Коллич. неч. чисел в массиве ',h);
   for n:=1 to h do
   for j:=1 to n do
 for i:=1 to g do
     nechm(a[j,i],n,h,b[n]);
     for n:=1 to h do
       writeln(b[n]);
       end.

Program ab;
type mtr=array[1..20,1..20] of integer;
     mas=array[1..400] of integer;
procedure matrix(var a:mtr;var m,n:integer);
var i,j:integer;
begin
repeat
writeln('Введите размеры матрицы от 2 до 20');
readln(m,n);
until(m in [2..20])and(n in [2..20]);
randomize;
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
procedure nechet(a:mtr;m,n:integer;var b:mas;var k:integer);
var i,j:integer;
begin
k:=0;
for i:=1 to m do
for j:=1 to n do
if odd(a[i,j]) then
 begin
  inc(k);
  b[k]:=a[i,j];
 end;
if k=0 then writeln('Нечетных элементов в матрице нет')
else
 begin
  writeln('Количество нечетных=',k,' это ');
  for i:=1 to k do
  write(b[i]:3);
 end;
end;
var a:mtr;
    b:mas;
    m,n,k:integer;
begin
matrix(a,m,n);
nechet(a,m,n,b,k);
end.