процедура, которая меняет Max и Min элементы дерева, процедура, которая меняет max и min элементы дерева Опции

[Слава]

Ребята помогите написать процедуру, которая меняет max и min элементы непустого дерева, все элементы которого различны!!

[Слава]

не знаю, зачем это надо, просто такое задание , которое уже завтра надо сдать

можно ещё вопрос, что у меня не правильно вот в этой процедуре:

procedure PrintTree(r: TreePointer; n: integer);
var
i:integer;
begin
if r<>nil then begin
PrintTree(r.^left, n+1);
for i := 1 to n do Write(' ');
Writeln(r^.data);
PrintTree(r^.right, n+1);
end;
end;


Пишет invalid qualifier