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

//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. Пример ввода: Мама окно рама Пример вывода: Мама рама