pascal二分木の課題

質問

レポート課題で、pascalの二分木についての問題が出たのですが、うまくソースコードを作ることができません！
誰かお手伝いよろしくお願いします！

課題：progに木をバランスよく組みなおす関数repackを追加せよ
program prog(input,output);
const
maxRange = 100;
type
dataType = integer;
tree = ^treeCall;
treeCall = record
data:dataType;
left,right:tree
end;

var
root:tree;
command:char; value:dataType;

function search(d:dataType; t:tree):tree;
begin
if t=nil then search:=nil(*ブレーク*)
else if t^.data=d then search:=t(*見つけた*)
else if t^.data>d then search:=search(d,t^.left)(*左を検索*)
else search:=search(d,t^.right)(*右を検索*)
end;

procedure insert(d:dataType; var t:tree);
begin
(**)
if t=nil then begin
new(t); t^.data:=d;
t^.left:=nil; t^.right:=nil
end
else if t^.data=d then (*すでに登録されているので何もしない*)
else if t^.data>d then insert(d,t^.left)
else insert(d,t^.right);
end;

procedure delete(d:dataType; var t:tree);
var temp:tree;
procedure deleteMin(var r:tree);
var temp:tree;
begin
temp:=r;
while temp^.left<>nil do temp:=temp^.left;
t^.data:=temp^.data;
delete(temp^.data,r)
end;
begin
if t=nil then writeln('Not Exist.')
else if t^.data=d then
if (t^.left<>nil) and (t^.right<>nil) then deleteMin(t^.right)
else begin
temp:=t;
if t^.left<>nil then t:=t^.left
else t:=t^.right;
dispose(temp);
end
else if t^.data>d then delete(d,t^.left)
else delete(d,t^.right)
end;

procedure writeSet(t:tree);
begin
if t=nil then (*何もしない*)
else begin
writeSet(t^.left);(*左へ左へ・・・*)
write(t^.data:1,' ');
writeSet(t^.right)(*右へ・・・*)
end
end;

(****** Body ******)
begin
root:=nil;
repeat
write('> '); read(command);
if command in ['i','d','s','w'] then begin
(*もしもコマンドがw以外なら値を読み込む*)
if command='w' then readln else readln(value);
case command of
(*数値をバイナリーツリーに挿入
ここでソーティングしたい*)
'i': insert(value,root);
'd': delete(value,root);

回答No.1

Hirorin_20

これって、丸投げですよね～～
課題代行サイトじゃないですから
せめて、解らないところをピックアップして質問しましょうよ。

もし、ソーティングが解らないならそこに絞って質問しましょう。
ソーティングって、昇順または降順での並び替えなんですから、紙に１から１０まで書いて並び替えてみて、同じことをプログラムでやったらいいだけです。二分木の図解ってそんなものです。