function stwórzdrzewo(POST, IN, n) : węzeł;

function resconstruct(a, b: Int) : węzeł;
var w : węzeł;
	x,y : int;
begin
	if a < b then
	begin
		new(w);
		x := POST[b];
		w^.wartość := x
		y := pozycja liczby x w IN;
		 for i := b down to y+1 do
			POST[i] := POST[i-1];
		w^.lsyn := reconstruct(a, y-1);
		w^.psyn := (y+1, b);
		reconstruct := w;
	end
	else if a = b then
	begin
		new(w);
		w^.wartość := POST[b];
		w^.lsyn := nil;
		w^.psyn := nil
	end
	else
		recounstruct := nil;
end;

begin
	stwórzdrzewo := reconstruct(1, n);
end;