Pascal/Turbo Pascal - necesito que me ayuden con la palabra palindroma....que yo la pensaba revertir ....

function espalindromo(s : cadena) : boolean;

    var

      temp : cadena;

    begin

       l := 1;

       for i := length(s) downto 1 do

       begin

          temp[l] := s[i];

          temp[0] := chr(l);

          l := l + 1;

       end;

         if temp = s then

         espalindromo := true

      .....como tengo que hacer para que me muestre en pantalla la palabra degradada...ej. amoroso, debajo moroso,debajo oroso, y debajo roso, y oso.....

{Esto serbira}

program amoroso;

 uses

    crt;

   const

      frase : string = 'amoroso';

    begin

       clrscr;

       writeln('   1 = ',frase);

       delete(frase,1,1);

       writeln('   2 = ',frase);

       delete(frase,1,1);

       writeln('   3 = ',frase);

       delete(frase,1,1);

       writeln('   4 = ',frase);

       delete(frase,1,1);

       writeln('   5 = ',frase);

       readkey;

   end.