Pascal/Turbo Pascal - cadena invertida de caracteres

{Mira esto te ayudara a entenderlo }

 program invecade;

 uses

    crt;

  var

    inve, cadena : string;

    cont : integer;

  procedure entrada;

  begin

      clrscr;

      write(' Entre Cadena : ');

      readln(cadena);

  end;

  procedure invierte(cad : string);

  var

     t : integer;

  begin

     t := 1;

     for cont := length(cad) downto 1 do

     begin

        inve[t] := cad[cont];

        inve[0] := chr(t);

        t := t + 1;

     end;

  end;

  begin

      entrada;

      invierte(cadena);

      clrscr;

      writeln('  Resultados ');

      writeln;

      writeln(' Cadena Entrada   = ',cadena);

      writeln(' Cadena Invertida = ',inve);

      writeln;

      writeln('   Pulse Una Tecla');

      readkey;

  end.