Дана матрица размера 5*6. Составить программу для просчёта количества нечётных элементов в каждом столбце матрицы — Pascal(Паскаль)

uses crt;
const Str=5;
      Stl=6;
var a:array[1..Str,1..Stl] of integer;
    b:array[1..Str] of integer;
    i,j:integer;
 begin
  ClrScr;
  Writeln('Введите матрицу...');
  begin
   for i:=1 to Str do
    for j:=1 to Stl do
     begin
      Write('a[',i,',',j,']->');
      Read(a[i,j]);
     end;
  end;
   Writeln('Введенная матрица*...');
   Writeln('---------');
    for i:=1 to Str do
     begin
      for j:=1 to Stl-1 do
        Write(a[i,j]:3);
        Writeln(a[i,Stl]:3);
     end;
   Writeln('---------');
   Writeln;
    for j:=1 to Stl do
    begin
     for i:=1 to Str do
       if a[i,j] mod 2<>0 then
        b[j]:=b[j]+1;
    end;
     for i:=1 to stl do
   Write(b[i]:3,' ');
  Readkey;
 end.