Помогите решить пожалуйста !

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadAllLines('samecode.in');

 var n := 1;

 n := ReadIntegerFromString(a[0], n);

 var w := a[1].ToWords(',', ' ').Last;

 var k := a[1].MatchValues(w).Count;

 WriteAllText('samecode.out',

     a[2:n + 1].Numerate.Where(t -gt; t[1].MatchValues(w).Count = k)

     .Select(t -gt; t[0] + 1).Sum.ToString)

end.

Файл samecode.in с контрольным образцом дан во втором вложении