[Redstason]

Код:

  var
   i,count1,count2: integer;
begin
 i:=0;
 while (i<Length(Str)) do
 begin
  if (Str[i]%2) then //нечетное
   Inc(count1)
  else
    Inc(Count2);
  Inc(i);
 end;
end;