function znajdz(t : drzewo; x : typ) : drzewo; begin if puste(t) or (t^.wartosc = x) then znajdz := t else if x < t^.wartosc then znajdz := znajdz(t^.lewy, x) else znajdz := znajdz(t^.prawy, x); end; { znajdz }