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

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