Задана последовательность символов, описать функцию проверяю-щую, является ли симметричной последовательность символов в этой последовательности, начиная с I-того и кончающегося на J-том элементе — Pascal(Паскаль)

uses crt;
function Simm(s:string;i,j:byte):boolean;
Begin
if (j-i<=1)and(s[i]=s[j]) then Simm:=true
else Simm:=(s[i]=s[j]) and Simm(s,i+1,j-1);
end;
var s:string;
    n,k:byte;
begin
clrscr;
writeln('Введите строку:');
readLn(s);
writeln('Введите позиции начала и конца интервала:');
readln(n,k);
write(Simm(s,n,k));
readln
End.