проблема с рекурсивной функцией

[world12_tk]

Добрый вечер..... У меня возникла проблема, с которой я столкнулся.... Мне нужно написать рекурсивную функцию по такой задачи: Задана последовательность символов, описать функцию проверяющую, является ли симметричной последовательность символов в этой последовательности, начиная с I-того и кончающегося на J-том элементе.....
Помогите мне пожалуйста......
Заранее спасибо

[Sazary]

uses crt;
var
s : string;
i,j : integer;

function fun(s : string; i,j : integer) : boolean;
 begin
 if i>=j then
  begin
  fun:=true;
  exit;
  end;
 if s[i] <> s[j] then
  fun := false
 else fun := fun(s,i+1,j-1);
 end;

begin
clrscr;
writeln('Enter string: ');
readln(s);
write('Enter i and j: ');
readln(i,j);
if fun(s,i,j) then writeln('Simmetrichnaya')
else writeln('Net simmetrii');
readln;
end.

[world12_tk]

огромное спасибо.... вы меня очень выручали.....