Определите является ли текст перевертышем(например как слово "шалаш")

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var s:=ReadlnString('Введите слово:').ToLower;
  if s=ReverseString(s) then Writeln('Перевертыш')
  else Writeln('Не перевертыш')
end.

Тестовое решение:
Введите слово: Шалаш
Перевертыш

Введите слово: револьвер
Не перевертыш