// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText(ReadlnString('Куда?'),ReadLines(ReadlnString('Откуда?'))
.SelectMany(x->x)
.Where(c->Pos(LowCase(c),'бвгджзйклмнпрстфхцчшщ')>0)
.JoinIntoString)
end.