function isPalindrome(s: string): boolean;
begin
  s := s.ToUpper;
  result := True;
  for var i := 1 to s.Length div 2 do
    if s[i] <> s[s.Length - i + 1] then
    begin
      result := false;
      exit
    end
end;

begin
  var s := 'Шалаш';
  Print(s, '-');
  Print(isPalindrome(s) ? 'палиндром' : 'не палиндром');
end.