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

// 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.Пример> А роЗА УПалА На АПУ аЗоразлнпр