Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (программа Паскаль)

uses crt;
var
 s: string;
 i: integer;
 flag: boolean;
begin
 clrscr;
 write('Введите слово: ');
 readln(s);
 flag := true;
 for i := 1 to length(s) div 2 do
  if s[i] <> s[length(s) - i + 1] then
  begin
   flag := false;
   break;
  end;
 if flag then write('Палиндром') else write('Ни разу не палиндром');
 readln;
end.