Написать программу, которая запрашивает слово и проверяет, является ли это слово палиндромом. Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program Palindrom;
var
word, reverseWord: string;
i: integer;
isPalindrom: boolean;

begin
isPalindrom := true;
write('Введите слово: ');
readln(word);

reverseWord := '';
for i := length(word) downto 1 do
reverseWord := reverseWord + word[i];

for i := 1 to length(word) do
begin
if word[i] <> reverseWord[i] then
begin
isPalindrom := false;
break;
end;
end;

if isPalindrom then
writeln('Слово "', word, '" является палиндромом.')
else
writeln('Слово "', word, '" не является палиндромом.');

end.