Идеально сбалансированное дерево

[Осипович]

Всем привет ! Меня зовут Миша ... я учусь на первом курсе ... есть проблема . Пожалуйста помогите ... =)

Задание : нужно написать программу которая читает входной файл и строит идеально сбалансированное дерево ... Есть вариант , но где то ошибка не вижу где ...

program Mishatree;

{$APPTYPE CONSOLE}

uses
SysUtils,Math;

type ref=^node;
node= record
key : integer;
left, right : ref;
end;
var n : integer; root : ref;

function tree(n:integer) : ref;
var newnode : ref;
x,nl,nr : integer;
begin
if n=0 then tree:=nil else
begin
nl:=n div 2; nr:=n-nl-1;
read(x); new(newnode);
with newnode^ do
begin
key:=x;
left:=tree(nl);
right:=tree(nr)
end;
tree:=newnode
end
end;

procedure printtree(t : ref; h : integer);
var i : integer;
begin
if t<>nil then
with t^ do
begin printtree(left, h+1);
for i:=1 to h do write(' ');
writeln(key);
printtree(right, h+1)
end
end;

begin
read(n);
root:=tree(n);

printtree(root,0);

end.