کمک برای یه برنامه !

[alooche.khanoom]

سلام
برج هانوی رو به زبان پاسکال دارم وباید با تحلیل تحویلش بدم که بلد نیستم ! بی زحمت کمک کنید نیوفتم :wacko:
program hanoy;
var
n:integer;
procedure tower(fromp,top,help:char;n:integer) ;
begin
if n=1 then
writeln('move disk 1 form ',fromp,' to ',top)
else
begin
tower(fromp,help,top,n-1);
writeln('move disk ',n,' from ',fromp,' to ',top);
tower(help,top,fromp,n-1);
end
end;
Begin
write('Enter number of disks : ');
readln;
tower('A','B','C',n);
readln;
End.
برنامم همینه !