Задача связанная с строчными буквами(или как-то так)

function InAny(s: string): set of char;
begin
  var b: set of char; var w := s.ToWords;
  if w.Length>1 then begin
    for var i := 1 to w[0].Length do begin
      var bool := true;
      for var j := 0 to w.Length - 1 do
        if not w[j].Contains(w[0][i]) then bool := false;
      if bool then include(b, w[0][i]);
    end;
  end;
  Result := b;
end;
 
begin
  var s := ReadlnString('Введите текст:');
  writelnformat('1) {0}{4}2) {1}{4}3) {2}{4}4) {3}', s.Where(v -> v.IsDigit).Distinct.JoinIntoString(' '),
    s.ToWords.Where(v -> v.First in ['а'..'я']).Select(v -> v.First).JoinIntoString(' '),
      s.Where(v -> not (v in ['a'..'z', '0'..'9', ' '])).Count > 0, InAny(s), NewLine);
end.

begin
  var s := ReadlnString('Введите текст:');
                               
  writelnformat('1) {0}{4}2) {1}{4}3) {2}{4}4) {3}{4}', 
    {0} s.Where(v -> v.IsDigit).Distinct.JoinIntoString(' '),
    {1} s.ToWords.Where(v -> v.First in ['а'..'я']).Select(v -> v.First).JoinIntoString(' '),
    {2} s.Where(v -> not (v in ['a'..'z', '0'..'9', ' '])).Count > 0,
    {3} s.ToWords.Select(v -> v.ToCharArray.ToList).ToList.Skip(1).
                  Aggregate((a, b) -> a.Intersect(b).ToList).Distinct.Where(ch -> ch in ['a' .. 'z']).JoinIntoString,
    {4} NewLine);
end.