Pascal. Строки.

[Dexterello]

Помогите, пожалуйста, со следующим - вот дана строка символов, как определить является ли слово таким, что перестановкой букв можно получить палиндром?

[Flexo]

Держи
var s1,s2:string;
i:integer;
begin
readln(s1); s2:='';
for i:=length(s1) downto 1 do begin
s2:=s2+s1[i];
end;
if s1=s2 then writeln(s1, ' - перевертыш')
else writeln(s1, ' - не перевертыш');
end.

[Dexterello]

неет, это не то. нужно "удалить слова, из которых перестановкой букв можно получить палиндром" - вот как звучит задание. не просто является ли слово палиндромом, а чтобы оно было им, но только если поменять местами буквы.