Массив А(N,M).В каждом столбце найти среднее арифметическое нечетных элементов.Из полученных значений сформировать одномерный массив.

Uses Crt;constn=5;m=7;vara:array[1..n,1..m]of integer;b:array[1..m]of real;i,j,k,c:integer;s:real;beginclrScr;    for i:=1 to n do        begin            writeln;               for j:=1 to m do                  begin                     a[i,j]:=random(30);                      write(a[i,j]:4);                  end;          end;writeln;for j:=1 to m do  begin      s:=0;k:=0;          for i:=1 to n do               if a[i,j]mod 2<>0 then                   begin                       s:=s+a[i,j];                        k:=k+1;                   end;      if k<>0 then         begin            c:=c+1;            b[c]:=s/k;         end;     end;for i:=1 to c do   write(b[i]:8:2);readkey;end.