Что то в функции!

[glebast]

Привет! Помогите пожалуйста мне разобраться.
Объясните мне подробно что делает эта функция:

Function Palindrom(S: String):Boolean; 
Var
  len: integer;

Begin

  len := length(s);
  Palindrom := (len <= 1) Or (s[1] = s[len]) And Palindrom(Copy(s,2,len - 2));

End;

и что такое Palindrom(Copy(s,2,len - 2))

[whatever]

Palindrom здесь - рекурентная функция, т.е. вызывающая сама себя.

Palindrom(Copy(s,2,len - 2))

Вот здесь она ИЗ себя вызывает СЕБЯ, но уже с входным параметром Copy(s,2,len - 2), т.е. укороченая начальная строка.

[ViktorR]

Function Palindrom(S: String):Boolean; {заголовок функции, возвращающей true или false}
Var
  len: integer; {описание внутренней переменной}

Begin

  len := length(s); {размер строки, переданной в функцию}
  Palindrom := (len <= 1) Or (s[1] = s[len]) And Palindrom(Copy(s,2,len - 2));
{выполнение логического оператора:
(длина строки 0 или 1 символ) ИЛИ (первый элемент равен последнему} И Palindrom(Copy(s,2,len - 2))
Palindrom(Copy(s,2,len - 2)) - Рекурсивный вызов функции Palindrom.
Функция вызывается с новой строкой,  у которой первый и последний символы удалены.
Copy(s,2,len - 2) - копировать со второго символа до предпоследнего
}
End;

В результате рекурсивного вызова будут последовательно проверяться на равенство первый и последний символы, пока не проверятся все такие пары до середины и длинна строки станет равной 0 - четное кол-во символов, или 1 - нечетное кол-во символов.
Т.к. используется оператор AND, то несовпадение на любом этапе вложенности породит значение False и в результате получим отрицательный результат - строка не Полиндром (перевертыш).