Сделать блок-схему

program laba12; 
type 
 ukaz = ^tree; 
 tree = record 
 inf: integer; 
 l, r: ukaz 
 end; 
var 
 uzel: ukaz; 
 n, yy, xx, el: integer; 
procedure newcreate(var uzel: ukaz; x: integer); 
begin 
 if uzel = nil then 
 begin 
 new(uzel); 
 uzel^.inf := x; 
 uzel^.l := nil; 
 uzel^.r := nil 
 end 
 else if x < uzel^.inf 
 then newcreate(uzel^.l, x) 
 else newcreate(uzel^.r, x) 
end; 
procedure creations(var Uzel: ukaz); 
var 
 i, n, y: integer; 
begin 
 Uzel := nil; 
 repeat 
 Write('Сколько элементов дерева? '); 
 readln(n) 
 until n>0; 
 for i := 1 to n do 
 begin 
 write('Введите ', i, ' элемент: '); 
 readln(y); 
 newcreate(Uzel, y) 
 end; 
end; 
procedure Print(X: ukaz); 
begin 
 if X <> nil then 
 begin 
 print(x^.l);write(' '); 
 write(x^.inf, ' '); 
 print(x^.r);write(' '); 
 end; end; 
procedure poi(Uzel: ukaz; X: integer); 
begin 
 if uzel = nil then writeln('такого элемента в дереве нет ! ') 
 else if uzel^.inf = x then writeln('элемент найден !) ') 
 else if x < uzel^.inf then poi(uzel^.l, x) 
 else poi(uzel^.r, x) 
end; 
function Delete(uzel: Ukaz; x: integer): Ukaz; 
var 
 P, v: Ukaz; 
begin 
 if (uzel = nil) 
 then writeln('такого элемента в дереве нет!') 
 else if x < uzel^.inf then uzel^.L := Delete(uzel^.L, x) {случай 1} 
 else 
 if x > uzel^.inf 
 then uzel^.R := Delete(uzel^.R, x) {случай 1} 
 else 
 begin{случай 1} 
 P := uzel; 
 if uzel^.R = nil 
 then uzel := uzel^.L 
 else if uzel^.L = nil 
 then uzel := uzel^.R 
 else begin 
 v := uzel^.L; 
 if v^.R <> nil 
 then begin 
 while v^.R^.R <> nil do v := v^.R; 
 uzel^.inf := v^.R^.inf; 
 P := v^.R; 
 v^.R := v^.R^.L; 
 end 
 else begin 
 uzel^.inf := v^.inf; 
 P := v; 
 uzel^.L := uzel^.L^.L 
 end 
 end; 
 dispose(P); 
 end; 
 Delete := uzel 
end; 
begin 
 yy := 15;xx := 15; 
 while yy <> 2 do 
 begin 
 Writeln('Хотите создать бинарное дерево? '); 
 Writeln('1 - Да'); 
 Writeln('2 - Нет'); 
 Readln(yy); 
 if yy = 1 then 
 begin 
 creations(uzel); 
 Writeln('Дерево : '); 
 Print(uzel); 
 Writeln; 
 while xx <> 0 do 
 begin 
 Writeln; 
 Writeln('Доступные операции над бинарным деревом : '); 
 Writeln('1 - Поиск '); 
 Writeln('2 - Удаление '); 
 Writeln('3 - Вставка '); 
 Writeln('4 - Вывод дерева'); 
 Writeln('0 - Конец работы с данным деревом'); 
 Readln(xx); 
 if xx = 1 then 
 begin 
 Write('Какой элемент ищем? —> '); 
 readln(el); 
 poi(uzel, el); 
 end; 
 if xx = 2 then 
 begin 
 Write('Какой элемент удаляем? —> '); 
 readln(el); 
 Delete(uzel, el); 
 end; 
 if xx = 3 then 
 begin 
 Write(' Введите всталяемый элемент —> '); 
 Readln(el); 
 newcreate(uzel, el); 
 end; 
 if xx = 4 then 
 begin 
 Writeln('Дерево : '); 
 Print(uzel); 
 Writeln; 
 end; 
 end; 
 end; 
 end; 
 end.