помогите составить программу для задачи 3 на паскале,заранее спасибо

В задании не указано, чем разделены группы в строке. Поэтому принято, что группа состоит из нулей и единиц, а разделителями групп может быть любое количество любых иных символов. Если это не так, просто вводите те символы-разделитеоли, каккие считаете нужными.

// 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.