Удалить из последовательности символов S все слова, оканчивающиеся группой букв, "кая" или "кое"

begin
  var l:=new list<string>;
  var lnew:=new list<string>;
  l:=ReadString().Split(' ').ToList();{читаем строку с клавиатуры произвольной длины, разбиваем на слова не удаляя повторы пробелов и присваиваем ее списку}
  foreach s:string in l do if (pos('кая',s)<>length(s)-2) and (pos('кое',s)<>length(s)-2) then lnew.add(s);{проходим по списку и слова с окончаниями кая и кое пропускаем, остальные в новый список}
  foreach s:string in lnew do write(s+#32);{выводим полученную последовательность на экран}
end.

{$reference System.Core.dll}
uses System, System.Linq;
 
begin
  foreach var st : string in 
    ReadString().Split('  '.ToCharArray(), StringSplitOptions.RemoveEmptyEntries).
    Where((x : string) -> not(x.EndsWith('кая') or x.EndsWith('кое'))) do write(st + ' ');
end.

{$reference System.Core.dll}
uses
  System, System.Linq;
 
type
  r = 
  record
    val : char;
    ix : integer;
    constructor create(avalue : char; aindex : integer);
    begin val := avalue; ix := aindex end;
  end;
  
var 
  arr : array of r;
begin
  var s : string := 'маша ела кашу   какая умница    мама ела жаркое'; // ReadString();
  arr := (s + ' ').Select((v : char, i : integer) -> new r(v, i)).Where((v : r) -> v.val = ' ').Reverse().ToArray();
  for var i : integer := 0 to arr.Length - 2 do
  begin
    var start : integer := arr[i+1].ix + 1;
    var len : integer := arr[i].ix - arr[i+1].ix - 1;
    var sub : string := s.Substring(start, len);
    if sub.EndsWith('кое') or sub.EndsWith('кая') then s := s.Remove(start, len);
  end;
  writeln(s);
end.

  var s : string := 'маша ела кашу   какая умница    мама ела жаркое'; // ReadString();
  arr := (s + ' ').Select((v : char, i : integer) -> new r(v, i)). // выбираем из строки пары "символ" и "его позиция"
    Where((v : r) -> v.val = ' '). // Отсеиваем только те пары, где символ - пробел, нас остальные не интересуют
    Reverse(). // "Разворачиваем" последовательность этих пар (зачем - поймешь позже)
    ToArray(); // И преобразуем в массив
 
  // теперь у нас в массиве arr хранятся координаты всех пробелов, присутствующих в строке s
  // Используя это, очень просто получить координаты всех слов (это то, что между пробелами),
  // проверить каждое слово на предмет того, оканчивается ли оно на 'кая' или 'кое',
  // и при необходимости - удалить. Итак:
  for var i : integer := 0 to arr.Length - 2 do
  begin
    // начало очередного слова в строке
    var start : integer := arr[i+1].ix + 1;
    // его длина
    var len : integer := arr[i].ix - arr[i+1].ix - 1;
    // само слово
    var sub : string := s.Substring(start, len);
    // проверяем окончание слова, и, при необходимости, удаляем его из исходной строки
    if sub.EndsWith('кое') or sub.EndsWith('кая') then s := s.Remove(start, len);
  end;
// Всё, можно печатать то, что осталось в s...