Склавиатуры две символьные строки и определите,какие символы встречаются в обеих строках.

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

begin
  var s1:=ReadLnString('1: ');
  var s2:=ReadLnString('2: ');
  s1.ToLower.Intersect(s2.ToLower).OrderBy(t->t).Println(',')
end.