Перечислить все слова каждого предложения, которые состоят из тех же букв, что и первое слово

var
  s,t,r:string;
begin
  readln(s);
  t:=s.ToWords(' ')[0];
  foreach a:string in s.ToWords(' ') do
    if Regex.Replace(uppercase(a),'['+uppercase(t)+']+','')='' then begin
      r:=r+' '+a;
      writeln(a);
    end;  
    s:=s+r;
  writeln(s);
end.

var
  t,r,b:string;
begin
  writeln('Введите текст:');readln(b);
  foreach s:string in b.ToWords('.!?'.tochararray()) do 
    foreach a:string in s.ToWords(' ,:;"-'.ToCharArray()) do begin
      t:=s.ToWords(' ,:;"-'.ToCharArray())[0];
    if Regex.Replace(uppercase(a),'['+uppercase(t)+']+','')='' then begin
      r:=r+' '+a;
      writeln(a);
    end;  
  end  
    b:=b+r;
  writeln(b);
end.

uses System.Linq, System.Globalization;
 
function SameLetters(First, Current : string) : boolean :=
  Enumerable.SequenceEqual(First.ToCharArray().OrderBy(ch -> ch), Current.ToCharArray().OrderBy(ch -> ch));
  
begin
  var words := new List<string>;
  var T := ReadLnString('Введите текст:');
  // var T := 'привет, хахах, лалала притев тервип лала приветт! кц рпр нен цк?';
  
  var P := LowerCase(T).ToWords('.?!'.ToCharArray);
  foreach var S : String in P do
  begin
    var W := S.ToWords(' -+,"/*0123456789'.ToCharArray);
    words.AddRange(W.Where((st, i) -> (i > 0) and SameLetters(W[0], st)));
  end;
 
  if words.Count > 0 then
  begin
    words[0] := (new CultureInfo('ru-RU', False)).TextInfo.ToTitleCase(words[0]);
    T += ' ' + string.Join(' ', words.ToArray()) + '.';
  end;
 
  WriteLn('Получен текст: ', T);
end.