Pile et recursivite

Bonjour,
j ai une idée sur la pile qu'on utilise en récursivité et je sais que la notion de pile est le premier empiler est le dernier dépiler.Mais quand j ai voulu afficher le contenu de la pile pour la suis de fibonacci, alors la j ai rien comprit j ai exécuté se programme

program test;
uses wincrt;
var y,n:integer;

function fib(n:integer):integer;

begin

if(n <= 1) then fib:= n

else
begin
write('n=',n,'|');
fib:= ( fib(n-1)+fib(n-2));
writeln;
write('N2=',n,'|');
end;
end;

begin
readln(n);
y:=fib(n);
writeln('resultat',y);
end.

est ce qu'il y a quelqu'un qui peut m'aider