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

//Pascal ABC.NET v3.1 сборка 1217Var 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.Пример ввода:Мама окно рамаПример вывода:Мама рама