В двумерном целочисленном массиве удалить все столбцы в которых четное количество нечетных элементов

[Дюша Метелкин]

В двумерном целочисленном массиве удалить все столбцы в которых четное количество нечетных элементов.

[Aleksandr H.]

uses crt;
var a : array[1..5,1..5]of integer;
i,j,k,coln,ii,jj:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
     a[i,j]:=random(9)+2;
     write(a[i,j]:5);
   end;
  writeln
 end;
 j:=1;coln:=5;
 while j<=coln do
  begin
    k:=0;
    for i:=1 to 5 do if odd(a[i,j]) then inc(k);
    if not (odd(k)) then
     begin
      {col deleting...}
      for ii:=1 to 5 do
       for jj:=j+1 to coln do
          a[ii,jj-1]:=a[ii,jj];
      dec(coln);
     end else
     inc(j);
  end;
  writeln;
  for i:=1 to 5 do
  begin
   for j:=1 to coln do
    write(a[i,j]:5);
   writeln;
  end;
 readln;
end.