Is_palindrome

##
function is_palindrome(text: string): boolean;
begin
  var s := '';
  text := text.ToLower;

  for var i := 1 to Length(text) do
      if (text[i] <> ' ') and (text[i].isletter) then s := s + text[i];

  if (s[1:] = s[::-1]) then Result := true else Result := false;
end;
//
var text := ReadString;
Print(is_palindrome(text));
////// другой способ через replace ///////
function is_palindrome(text: string): boolean;
begin
  text := text.ToLower;
  text := text.Replace(',','');
  text := text.replace ('.','');
  text := text.replace ('!','');
  text := text.replace ('?','');
  text := text.replace ('-','');
  text := text.replace (' ','');

    if (text = text[::-1]) then result := True
        else result := False
end;

println(is_palindrome('А роза упала на лапу Азора.'));
println(is_palindrome('Gabler Ruby - burrel bag!'));
print(is_palindrome('BEEGEEK'));