Pascal/Turbo Pascal - necesito proced. para invertir una palabra

necesito la idea para realizar un prodedimiento que reciba una cadena de caracteres y la devuelva en parametrosen forma inversa ej: hola imprimir aloh
posdata: lo necesto antes del viernes 24/8/01

Procedure invertir(entrada:string; var salida:string);
var
i,j:byte;
begin
salida[0]:=entrada[0];
j:=length(entrada);
for i:=1 to length(entrada) do
begin
salida[j]:=entrada[i];
dec(j);
end;
end;

Aqui hay otra opcion

procedure invertir(cad1:string; var cad2:string);
var
i:byte;

begin
for i:= length(cad1) downto 1 do
cad2:=cad2+cad1[i];
end;

No se te olvide inicializar cad2.
cad2:='';