Люди добрые помогите с таким заданием:

ralf, бинарное дерево является упорядоченным, поэтому надо идти все время направо, пока не встретишь нулевой указатель next... Этот лист и будет содержать максимальное значение...

Не подскажешь как это исполнить в процедуре?

Ну, это смотря как задается дерево. Но вообще-то вот так:

function find_max(tree: ptree): ptree;
begin
  if tree <> nil then
    while tree^.right <> nil do tree := tree^.right;
  find_max := tree;
end;

в результате функция вернет указатель на лист с максимальным значением...

Да ... интересно получилось, сейчас буду переделывать под конкретные деревья!!! А так суть понял...!!!