В каждом столбце матрицы найти произведение элементов, сумма цифр которых – чётное число

Var A:array[1..20,1..20] of integer;
    B:array[1..20*20] of integer;
    i,j,n,m,i1,i2,j1,j2,k:byte;
    p:longint;
    c:boolean;
Function Chet(n:integer):boolean;
Var s:integer;
Begin
    s:=0;
    While n<>0 do
     Begin
      s:=s+n mod 10;
      n:=n div 10;
     End;
    if s mod 2 = 0 then Chet:=true
     else Chet:=false;
End;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
     For j:=1 to m do
      Begin
       write('A[',i,',',j,']: ');readln(A[i,j]);
      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
      p:=1;
      For i:=1 to n do
       if Chet(A[i,j]) then p:=p*A[i,j];
      writeln('Произведние элементов сумма цифр которых – чётное число в столбце: ',j,': ',p);
     End;
    c:=true;i:=0;
    While (i<n)and(c) do
     Begin
      inc(i);j:=0;
      While (j<m-1)and(c) do
       Begin
        inc(j);
        if A[i,j]<A[i,j+1] then c:=false;
       End;
     End;
    if c then writeln('Все строки упорядоточены по убыванию')
     else writeln('Не все строки упорядоточены по убыванию');
    Repeat
     write('Введите i1,i2: ');readln(i1,i2);
    Until (i1<=i2)and(i1 in [1..n]);
    Repeat
     write('Введите j1,j2: ');readln(j1,j2);
    Until (j1<=j2)and(i1 in [1..m]);
    k:=0;
    writeln('Полученный массив');
    For i:=i1 to i2 do
     For j:=j1 to j2 do
      Begin
       inc(k);
       B[k]:=A[i,j];
       write(B[k]:3);
      End;
End.