Pascal/Turbo Pascal - Como hago recursiva esta funcion?

function long_lista(l:lista):integer;

 var

  num:integer;

  begin

       num:=0;

       while (l <> nil) do begin

         num:= num +1;

         l:=l^.sig

       end;

      long_lista:=num;

  end;

{Mira esto}

 program long_lista;

   uses

      crt;

   type

     lista = ^lnodos;

     lnodos = record

            numero : integer;

               sig : lista;

             end;

    var

      prim, anter, actu : lista;

      n, dat : integer;

    procedure crealista(d : integer);

    var

      pp, da : integer;

    begin

        for da := 1 to d do

        begin

          pp := random(d + d) + 1;

          if prim = nil then

          begin

             new(actu);

             actu^.numero := pp;

             prim := actu;

             actu^.sig := nil;

          end

       else

          begin

             anter := actu;

             new(actu);

             actu^.numero := pp;

             anter^.sig := actu;

             actu^.sig := nil;

          end;

       end;

    end;

    function lon_lista(l : lista) : integer;

    begin

       if l = nil then

       lon_lista := n

     else

       begin

        n := n + 1;

        lon_lista := lon_lista(l^.sig);

        end;

    end;

    procedure presenta_numeros;

    var

      temp : lista;

    begin

       temp := prim;

       while temp <> nil do

       begin

         writeln('   ',temp^.numero);

         temp := temp^.sig;

       end;

    end;

    begin

       clrscr;

       prim := nil;

       n := 0;

       crealista(10);

       writeln;

       writeln('   Longitud Lista =  ',lon_lista(prim));

       writeln;

       presenta_numeros;

       readkey;

    end.