Описать рекурсивную функцию!

[glebast]

Всем привет!
У меня тут сложилась такая проблемка - надо задачу решить, задали по алгоритмизации,
а я с функциями не очень дружу, очень долго придется разбираться. По этому прошу,
решите пожалуйста эту задачку и если можно с коментариями, чтоб до меня хоть что-то дошло!
Заранее спасибо!

Описать рекурсивную функцию Palindrom(S) логического типа,
 возращающую TRUE, если строка S является палиндромом (т.е. читается 
одинаково слева на право и справа на лева), и FALSE в противном случае. 
Оператор цикла в теле функции не использовать. Вывести значение 
функции Palindrom для пяти данных строк.

[Mad_Cat]

recur_13 боту из подписи)

program recur13;
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;
 Var
  i: Integer;
  s: String;
Begin
  For i:= 1 To 5 Do
    Begin
      ReadLn(s);
      WriteLn(Palindrom(s));
    End;
  ReadLn;
End.

[glebast]

что значит "recur_13 боту из подписи)"?

[glebast]

Все круто, работает! Большое спасибо!