Question

Помогите пожалуйста!

Answer 1

Эту, явно конкурсную задачу, придумали люди, незнакомые с возможностями языка PascalABC.NET 3.3. Потому что на нем она решается буквально в одну строчку и за время, нужное, чтобы эту строчку написать.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.RegexReplace('[^A-Za-zА-Яа-яЁё0-9 ]','')
      .MatchValues('[A-ZА-ЯЁ][^A-ZА-ЯЁ]+').PrintLines;
end.