Описать рекурсивную логическую функцию Sym(S, i, j), проверяющую, является ли симметричной часть строки S

var j,k,i,n:integer;
    s:string;
    c:char;
 
function sym(s:string; i,j:integer):string;
var sm:string;
    n:integer;
begin
     n:=j-i+1;
     if (n mod 2)=1 then
     begin
       n:=n div 2+1;
       Delete(s,i+n,1);
       j:=j-1;
     end;
     n:=n-1+i;
     if i<n then begin
        if s[i] = s[j] then
        begin
             i:=i+1;
             j:=j-1;
             sym:=sym(s,i,j);
        end
        else
            sym:='no';
     end
     else
     sym:='yes';
end;
begin
writeln('Vvedite stroku s');
Readln(s);
writeln('Vvedite i');
readln(i);
writeln('Vvedite j');
readln(j);
Writeln(sym(s,i,j));
readln;
end.

function sym(s : string; start, finish : integer) : boolean;
begin
   if finish - start < 2 then sym := s[start] = s[finish]
   else sym := sym(s, start + 1, finish - 1);
end;

VAR
   stroka:string;
   i,j,k:integer;
 
function sym(s : string; start, finish : integer) : boolean;
begin
   if finish - start < 2 then sym := s[start] = s[finish]
   else sym := sym(s, start + 1, finish - 1);
end;
 
BEGIN
     write('stroka = '); readln(stroka);
     write('i,j (cherez probel) = '); readln(i,j);
     if SYM(stroka,i,j) then for k:=i to j do write(stroka[k])
     else write('no!');
     readln;
END.

function sym(s : string; start, finish : integer) : boolean;
begin
   if finish - start < 2 then sym := s[start] = s[finish]
   else
      sym := (s[start] = s[finish]) and sym(s, start + 1, finish - 1);
end;