Exercice algorithme recurcive

type PListe=^Liste; // pointeur sur liste

     Liste=record
           valeur:integer;
           suivant:PListe
           end;

procedure LireALEndroit(p:PListe);
begin
if p<>nil then begin
               writeln(p^.valeur);
               LireALEndroit(p^.suivant);
               end;
end;

procedure LireALEnvers(p:PListe);
begin
if p<>nil then begin
               LireALEnvers(p^.suivant);
               writeln(p^.valeur);
               end;
end;