Задача, изменение строки. Что не так?

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  bin,bout:text;
  f:array[0..199] of char;
  a:array[0..199] of byte;
  b:array[0..199] of byte;
  slovo:array[0..199] of char;
  izm:array[0..199] of char;
  i,num,k,l:byte;
  TempBukva:char;
 
 
begin
assign(bin, 'morpher.in');reset(bin);
assign(bout,'morpher.out');rewrite(bout);
readln(bin, slovo);
readln(bin, num);
For i:=0 to num-1 do
  begin
     read(bin,f[i]);read(bin, a[i]);readln(bin, b[i]);
  end;
 
For i:=0 to num-1 do
   begin
     If f[i]='R' then
        begin
 
    for k:=0 to b[i]-a[i] do
       izm[k]:=slovo[a[i]-1+k];
 
     for k:=a[i]-1 to b[i]-1 do
          slovo[b[i]-k]:=izm[k-1];
      end
 
 
    Else begin
     for k:=a[i]-1 to b[i]-2 do
       begin
        for l:=k+1 to b[i]-1 do
           begin
             if slovo[k]>slovo[l] then
                 begin
                    tempbukva:=slovo[k];
                    slovo[k]:=slovo[l];
                    slovo[l]:=tempbukva;
                  end;
           end;
       end;
    end;
   end;
writeln(bout, slovo);
close(bin);close(bout);
end.

program morpher;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  bin,bout:text;
  f:array[0..199] of char;
  a:array[0..199] of integer;
  b:array[0..199] of integer;
  slovo:array[0..199] of char;
//  izm:array[0..199] of char;
  num:integer;
  TempBukva:char;
  n,i,k,l:integer;
 
 
begin
assign(bin, 'morpher.in');reset(bin);
assign(bout,'morpher.out');rewrite(bout);
readln(bin, slovo);
readln(bin, num);
For i:=0 to num-1 do
  begin
     read(bin,f[i]);read(bin, a[i]);readln(bin, b[i]);
  end;
 
 
 
For i:=0 to num-1 do
   begin
     If f[i]='R' then
        begin
 
 
    If odd(b[i]-a[i])=true then
     begin
     For k:=a[i]-1 to a[i]+((b[i]-a[i]-1) div 2)-1  do begin
 
 
         tempbukva:=slovo[k];
         slovo[k]:=slovo[b[i]-k+a[i]-2];
         slovo[b[i]-k+a[i]-2]:=tempbukva;
 
         end;
     end
    else
        begin
     For n:=a[i]-1 to a[i]+((b[i]-a[i]) div 2)-1  do begin
         tempbukva:=slovo[n];
         slovo[n]:=slovo[b[i]-n+a[i]-2];
         slovo[b[i]-n+a[i]-2]:=tempbukva;
 
         end;
         end;
         end
 
 
 
    Else begin
     for k:=a[i]-1 to b[i]-2 do
       begin
        for l:=k+1 to b[i]-1 do
           begin
             if slovo[k]>slovo[l] then
                 begin
                    tempbukva:=slovo[k];
                    slovo[k]:=slovo[l];
                    slovo[l]:=tempbukva;
                  end;
           end;
       end;
    end;
 
  end;
   writeln(bout, slovo);
close(bin);close(bout);
end.