Подсчитать количество букв “к” в самом длинном слове

function sReverse(S : String) : String;
begin
  Result := '';
  for var i := S.Length downto 1 do
    Result += S[i];
end;
 
 
begin
  var L := New List<String>;
  var D : array of Char := (' ', ',', '.', '"', '?', '-', '!', '(', ')', ';',
  ':', '[', ']', '*', '/', '<', '>', '0', '1', '2', '3', '4', '5', '6', '7',
  '8', '9', '''');
  var Name :=ReadLnString('Имя файла:');
  foreach var S in System.IO.File.ReadAllLines(Name, System.Text.Encoding.Default) do
    foreach var W in S.ToWords(D) do
      if L.IndexOf(UpperCase(W)) < 0 then
        L.Add(UpperCase(W));
  
  // a
  var LongWord : String := '';
  foreach var W in L do
    if W.Length > LongWord.Length then
      LongWord := W;
  WriteLn('Cамое длинное слово: ', LongWord, NewLine,
  'букв "к" в нём: ', LongWord.Length - LongWord.Replace('К', '').Length, NewLine,
  'а букв "т" в нём: ', LongWord.Length - LongWord.Replace('Т', '').Length);
  
  // b
  WriteLn('Слова-палиндромы:');
  var paCount := 0;
  for var i := 0 to L.Count-2 do
    for var j := i+1 to L.Count-1 do
      if L[i].Length = L[j].Length then
        if L[i] = sReverse(L[j]) then
          begin
            WriteLn(L[i], ' = ', L[j]);
            paCount += 1;
          end;
   WriteLn('всего слов-палиндромов: ', paCount);
  
  // c
  WriteLn('Количество различных символов в каждом слове:');
  foreach var W : String in L do
    WriteLn(W, ' -> ', W.Distinct.Count);
 
  WriteLn('the End');
end.

begin
  var L :=
  System.IO.&File.ReadAllText(ReadLnString('Имя файла:'), System.Text.Encoding.UTF8).
    Split((NewLine + ' ,."?-!();:[]*/<>0123456789''—…«»').ToCharArray()).Distinct(System.StringComparer.CurrentCultureIgnoreCase);
    
  var longest := L.OrderByDescending((s : string) -> Length(s)).FirstOrDefault();
  writeln('a) самое длинное слово: ', longest, '; букв "к" в нем: ', 
    Length(longest) - Length(longest.Replace('к', '')));
  var p := L.Where((s : string) -> (Length(s) > 1) and string.Equals(s, ReverseString(s),System.StringComparison.CurrentCultureIgnoreCase));
  writeln('b)' + string.Join(NewLine, p.ToArray()) +
    NewLine + 'количество слов - палиндромов: ', p.Count());
    
  writeln('c) количество различных символов в каждом слове:' +
    NewLine + string.Join(NewLine, L.Select((s : string) -> s + ' -> ' + IntToStr(s.ToCharArray().Distinct().Count())).ToArray()));
end.