Да, действительно несовсем понятно что имел ввиду автор вопроса, но вот как вариант, единственное решение которое пришло мне на ум)
Код:
function sim(const S:String; const i,j:integer):boolean;
begin
Result:=(S[i] = S[j]);
if (Result) and (i < j-1) then Result:=sim(S, i+1,j-1);
end;