procedure Obrisi_stablo(koren:pokazivac; var stek:nizpok;var top:integer);
 var
   pom:pokazivac;

   begin
      Stek_push(stek, koren, top);

     while(top <> 0) do
        begin
          koren := Stek_pop(stek, top);
          pom := koren;
          dispose(koren);

          if(pom^.desno <> nil) then
             Stek_push(stek, koren^.desno, top);
          if(pom^.levo <> nil) then
             Stek_push(stek, koren^.levo, top);

        end;

   writeln('Stablo je izbrisano!');

   end;