Ввести символьную строку и проверить, является ли она палиндромом (палиндром читается одинаково в обоих направлениях) — Pascal(Паскаль)

program Project1;
 
var
  S : String;
  i, Len : Longint;
  IsYes : Boolean;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    IsYes := True;
    for i := 1 to Len div 2 do begin
      if S[i] <> S[Len - i + 1] then begin
        IsYes := False;
        Break;
      end;
    end;
 
    if IsYes then
      Writeln('Строка является палиндромом.')
    else
      Writeln('Строка не является палиндромом.')
    ;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.