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

Program lib;
Uses crt;
label 10;
type spisok=record
     name:string;
     author:string;
     izdatel:string;
     year:integer;
     razdel:string;
     poisk:string;
     nalichie:string;
    end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;
Procedure Sozd (var a:ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>11 do
begin
  write ('Vvedite nazvanie knigi: ');
  readln (zk.name);
  write ('Vvedite avtora: ');
  readln (zk.author);
  write ('Vvedite nazvanie izdatelstva: ');
  Readln (zk.izdatel);
  write ('Vvedite god napisania: ');
  readln (zk.year);
  write ('Vvedite razdel v biblioteke: ');
  readln (zk.razdel);
  write ('Vvedite nalichie: ');
  readln (zk.nalichie);
  writeln ('Esli konec zapisi to nazhmite 11 ');
  readln (j);
  write(a,zk);
end;
close (a);
end;
{------------------------------------------------------}
Procedure vyvod (var a:ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=========================================================');
 writeln ('|   Naz.knigi   | Avtor |     Izdatel     |    god.nap    | Razdel | Nalichie');
 writeln ('=========================================================');
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.name:11,'|':2);
    write ('',zk.author:11,'|':2);
    write ('',zk.izdatel:15,'|':2);
    write ('',zk.year:11,'|':2);
    write ('',zk.razdel:11,'|':2);
    write ('',zk.nalichie:11,'|':2);
    writeln('---------------------------------------------------------');
    writeln;
    writeln;
    writeln;
   end;
close (a);
end;
{--------------------------------------------------------------------------}
procedure delete (var a:ft);
Var n,m:longint;
      i:byte;
      mas:array [1..20] of spisok;
begin
 i:=1;
 reset(a);
 writeln ('vvedite nomer zapisi dlja udalenija ');
 readln(n);
 m:=filesize(a)-n;
 seek (a,n);
 while not eof(a) do
 begin
  read (a,mas[i]);
  i:=i+1;
 end;
 close (a);
 reset (a);
 seek (a,n-1);
 truncate (a);
 close (a);
 reset (a);
 seek (a,n-1);
  for i:=1 to m do
   write (a,mas[i]);
end;
{----------------------------------------------------------------------}
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('Vvedite imja dlja poiska ');
 readln (name);
 writeln ('spisok s zadannym imenem ');
 writeln ('=============================================================================');
 writeln ('|   Naz.knigi   | Avtor |     Izdatel     |    god.nap    | Razdel | Nalichie');
 writeln ('=============================================================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.name=name then
  begin
    write ('|',zk.name:11,'|':2);
    write ('',zk.author:11,'|':2);
    write ('',zk.izdatel:15,'|':2);
    write ('',zk.year:11,'|':2);
    write ('',zk.razdel:11,'|':2);
    write ('',zk.nalichie:11,'|':2);
    writeln;
    writeln('---------------------------------------------------------');
  end;
 end;
close(a);
end;
begin
clrscr;
10:
assign (a,'ff.txt');
writeln ('     Menu      ');
writeln;
writeln ('1.Create ');
writeln ('2.Output ');
writeln ('3.Delete ');
writeln ('4.Search ');
writeln ('5.Quit ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:delete(a);
  4:poisk (a);
  5:exit;
  end; goto 10;
readln
end.