Найти группы с четным количеством символов

program z;
var i,k,f,n:integer;
a:array [1..100] of byte;
begin
     write('Ââåäèòå êîë-âî ýëåìåíòîâ: ');
     readln(n);
     randomize;
     writeln('Ñëó÷àéíîå çàïîëåíåíèå');
     for i:=1 to n do
         begin
              a[i]:=random(2);
              write(a[i],' ');
         end;
     writeln;
     f:=0; k:=0;
     for i:=1 to n do
         if a[i]=0
            then
                begin
                     k:=k+1;
                     f:=1;
                end;
     if f=0
        then
            writeln('Â ìàññèâå íåò íóëåé')
     else
         begin
              if odd(k)=false
                 then
                     writeln('Êîë-âî íóëåé ÷åòíîå')
              else
                  writeln('Êîë-âî íóëåé íå ÷åòíîå');
         end;
     f:=0; k:=0;
     for i:=1 to n do
         if a[i]=1
            then
                begin
                     k:=k+1;
                     f:=1;
                end;
     if f=0
        then
            writeln('Â ìàññèâå íåò åäèíèö')
     else
         begin
              if odd(k)=false
                 then
                     writeln('Êîë-âî åäèíèö ÷åòíîå')
              else
                  writeln('Êîë-âî åäèíèö íå ÷åòíîå');
         end;
end.