В задании не указано, чем разделены группы в строке. Поэтому принято, что группа состоит из нулей и единиц, а разделителями групп может быть любое количество любых иных символов. Если это не так, просто вводите те символы-разделитеоли, каккие считаете нужными.
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Вводите:').MatchValues('[01]+')
.Where(s->s.Length.IsOdd).ToArray;
var b:=a.Select(w->w.ToCharArray.Where(c->c='1').Count).ToArray;
a.Zip(b,(p,q)->p+' - '+q).PrintLines
end.
