Написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем", при write, lenght и т.п,через паскаль)

//PascalABC.NET v3.3 1633

var str: string;

begin

write('Введите слово: ');

readln(str);

if ReverseString(str) = str then

 writeln('Слово является палиндромом')

else

 writeln('Слово не является палиндромом');

end.