Дан массив. Отыскать все его нечетные элементы. И записать в массив

program Primer;

var

  a,b:array[1..M] of Integer;

  M,N,k,k2:Integer;

 Begin

  Write(M: );

  Readln(M);

  Write(N: );

  Readln(N);

  Writeln(A: );

  for k:=1 to N do

   begin

    write(k, :);

    readln(a[k]);

   end;

  k2:=0;

  for k:=1 to N do

    if (a[k] mod 2)lt;gt;0 then

      begin

        inc(k2);

        b[k2]:=a[k]

      end;

   Writeln(B(,k2,):);

  for k:=1 to k2 do writeln(k, :,b[k]);

end.