Строки

[naty7773]

Проверить, является ли выражение, состоящие из строчных букв заданной строки, палиндромом (палиндром – слово или выражение, читающееся слева направо или справа налево одинаково, например, «нажал кабан на баклажан»)

Помогите пожалуйста написать программу!!!Вобще не знаю как делать((((

[Hacker19_90]

function IsStrPalindrom (const str: string): boolean;
var
   s: string;
   i: byte;
begin
     s := str;
     IsStrPalindrom := true;
     while pos(' ', s) <> 0 do
          delete (s, pos(' ', s), 1);
     for i := 1 to (length(s) div 2) do
         if s[i] <> s[length(s) - i + 1] then 
         begin
             IsStrPalindrom := false;
             break;
         end;
end;

чувствительно к регистру!

[naty7773]

Спасибо!!!Очень благодарна!!))