Деревья, графика

[Eni]

Выручте плиз. Очень нужно решить эти задачи.
1. Создайте программой числовое двоичное дерево. Опишите функцию, которая находит наибольший элемент непустого дерева. В программе используйте подпрограммы.

2. Вывести на экран в графическом режиме графики двух функций на интервале от х начальное до х конечное с шагом dx. Первая функция задана с помощью ряда Тейлора, её вычисление должно выполнятся с точностью Е, значение параметра b для второй функции вводится с клавиатуры. Графики должны быть плавными и различаться цветами.

y(x)=∑(-1)^n*x^(2n+1)/(2n+1)=x-x^3/3+x^5/5-x^7/7+..., |x|≤1;
z(x)=arctgx+b.
Изображение должно занимать большую часть экрана, сопровождаться заголовком, содержать наименования и градации осей и масштабироваться в зависимости от значений исходных данных. При любых допустимых значениях исходных данных изображение должно полностью помещаться на экране. Программа не должна опираться на конкретные значения разрешения экрана.

[pil69]

Лишь набросок. Остальное сам додумай

type ptr=^rec;
rec=record d:integer;
l,r:ptr end;
function max(node:ptr):integer;
var lmax,rmax:integer;
begin
  with node^ do 
   begin 
    if l<>nil then lmax:=max(l) else lmax:=-32000;
    if r<>nil then rmax:=max(r) else rmax:=-32000;
    if lmax>rmax then rmax:=lmax;
    if rmax<d then max:=d else max:=rmax;
   end 
end;