Вывести на экран все согласные буквы строки в алфавитном порядке. в паскале

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

begin
  var sogl:='бвгджзйклмнпрстфхцчшщ';
  var s:=readlnString('>').ToLower;
  s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.

Пример
> А роЗА УПалА На АПУ аЗора
злнпр