Рекурсивная функция для определения строки-палиндрома

Pas.0025. Напишите рекурсивную функцию, которая определяет, является ли заданная строка строгим палиндромом (перевертышем).

Решение.

program StrongPalindromeString;

function isPalindrom(s: string): boolean;
begin
    if length(s) < 2 then
        isPalindrom := True
    else if s[1] <> s[length(s)] then
        isPalindrom := False
    else
        isPalindrom := isPalindrom(copy(s, 2, length(s) - 2));
end;

begin
 
   writeln(isPalindrom('1232'));
   writeln(isPalindrom(''));
   writeln(isPalindrom('1'));
   writeln(isPalindrom('12321'));
   
end.

Консоль.

False
True
True
True