Como Invertir Una Lista Enlazada Simple

[sant0s]

Como Invertir Una Lista Enlazada Simple tomando como parametro solo la lista(L)

me explico:

procedure invertir_lista(var L:nodo);

yo lo hice con 2 listas como veran el codigo abajo. lo cual me corre 100 pts.

pero nesecito que me den una orientacion de como invertirla en la misma lista.
Gracias de antemano.

se los agradesco.

procedure invertir_L(var l:nodo; temp:nodo);
var
e:integer;
begin
__if not esvacio_L(l) then
____begin
______while l <> nil do
________begin
__________e:=primero_L(l);
__________insertarprimero_L(temp,e);
__________eliminarprimero_L(l);
________end;

_________mostrar_L(temp);
_____end;
end;