Дан текст. Посчитать количество слов, заканчивающихся на заданную букву и перенести их в другую строку, написав через запятую. Вывести полученную строку на экран. Написать программу на языке: Pascal;

Вопрос школьника по предмету Информатика

Дан текст. Посчитать количество слов, заканчивающихся на заданную букву и перенести их в другую строку, написав через запятую. Вывести полученную строку на экран.
Написать программу на языке: Pascal;

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017

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

begin

  var aw:=ReadlnString(‘Введите строку:’).ToWords;

  var c:=ReadlnChar(‘Введите букву:’);

  var s:=aw.Where(w->w.Last=c).JoinIntoString(‘,’);

  s.Println

end.

Пример

Введите строку: Моя замечательная и вообще чудесная строка

Введите букву: я

Моя,замечательная,чудесная

Примечание: Непонятно, зачем в задании говорится о счете количества слов, если не сказано, что с этим количеством делать.