SoloCodigo

buen aporte sin embargo hay una forma mejor para darle un comienzo a la lista:

esto es lo tuyo:
procedure Agregar (var l:lista;x:integer);
var
  act:lista;
begin
   if (l^.link^.info=-1) then
       begin
            new(act);

            act^.info:=x;

            act^.link:=l^.link;

            l^.link:=act;
       end
    else
        begin
             Agregar(l^.linkx);
        end;

podria ser como:

   if (l^.link = Nil)  then
       begin
            new(act);

            act^.info:=x;

            act^.link:=l^.link;

            l^.link:=act;
       end
    else
         Agregar(l^.linkx);

disculpen por mi ignorancia pero soy nuevo aca http://www.solocodigo.com/images/icons/icon9.gif y no se subir archivos al foro asique lo publique aca no mas al fix