Рекурсивные процедуры и функции: писать рекурсивную логическую функцию Simm - Pascal ABC

Формулировка задачи:

Описать рекурсивную логическую функцию

Simm

(S,I,J), проверяющую, является ли симметричной часть строки S, начинающая i-м и заканчивающая j-м ее элементами.

Решение задачи: «Рекурсивные процедуры и функции: писать рекурсивную логическую функцию Simm»

Листинг программы

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
writeln('Введите строку:');
read(s);
writeln('Введите позиции начала и конца интервала:');
read(n,k);
write(Simm(s,n,k));
End.

Объяснение кода листинга программы

Объявлена рекурсивная логическая функция Simm, которая принимает три аргумента: строку s, начальную позицию i и конечную позицию j.
В функции реализована проверка базового случая: если разница между позициями j-i меньше или равна 1 и символы в позициях i и j равны, то функция возвращает true.
В противном случае функция вызывает саму себя, передавая в качестве аргументов строку s, увеличенную позицию i и уменьшенную позицию j.
Переменная Simm инициализируется значением базового случая.
В основной программе объявлены переменные s, n и k типа byte.
Пользователю предлагается ввести строку.
Пользователю предлагается ввести начальную и конечную позиции интервала.
Результат работы функции Simm выводится на экран.