[ecfisa]

Hola.

Código Delphi [-]
procedure InvertirLista(var Primero: TNodoPtr);
var
  Aux, Prev, Prox: TNodoPtr;
begin
  Aux := Primero;
  Prev:= nil;
  Prox:= nil;
  while Aux <> nil do
  begin
    Prox := Aux.Sgte;
    Aux.Sgte:= prev;
    Prev:= Aux;
    Aux:= Prox;
  end;
  Primero:= Prev;
end;

Saludos.