Zadanie zaliczeniowe z laboratorium Pascala i C. ZSI I. 01/02
-------------------------------------------------------------

Zadane: 6-7.03.2002, odbiór: 13-14.03.2002, 2 punkty.

Zad 10. (2 pkt)
---------------

Dla danego drzewa binarnego (na przykład otrzymanego w poprzednim zadaniu
po wczytaniu wszystkich słów z pliku), połączyć wszystkie wierzchołki
w porządku in-order w listę.

Zatem przy deklaracjach:

  drzewo = ^wezel;
  wezel = record
            slowo       : String;  {klucz drzewa BST}
            ile         : Integer; {ilość wystąpień słowa}
            lewy, prawy : drzewo;  {dowiązania do synów}
	    nast        : drzewo;  {następnik na liście}				
          end;

napisać funkcję:

  Fastryga(d : drzewo) : drzewo;

która wypełnia pole nast w węzłach drzewa tworząc z nich listę. Wynikiem 
funkcji ma być głowa listy.