Из текста удалить слова, начинающиеся и оканчивающиеся ** одну и ту же букву.(Паскаль)

Question

Из текста удалить слова, начинающиеся и оканчивающиеся на одну и ту же букву.(Паскаль)

Answer 1

//Pascal ABC.NET v3.1 сборка 1217

Var
 s,s1:string;
 i:integer;
begin
 readln(s);
 var ars:=s.ToWords;
 for i:=0 to ars.length-1 do
 if lowcase(ars[i][1])<>lowcase(ars[i][length(ars[1])]) then s1:=s1+ars[i]+' ';
 writeln(s1);
end.

Пример ввода:
Мама окно рама
Пример вывода:
Мама рама