Nice bit of code!

If Wild='not able to write' then begin
  write('Sawwy');
  if layer=0 then
      talkages
  else
     begin
       talk;
       /hug
       layer=layer-1;
     end;
    If layer=0 then
       /lots of hugs
 end;