FreePascal.ru

пытаюсь построить бинарное дерево по принципу направо больший налево меньший, и отсортировать по нему массив, но вот гдето закрались баги. подскажите плиз где накосячил. вот код:
program treemake;
uses crt;
const
n = 10;
type
ptr = ^tr;
tr = record
data : integer;
left : ptr;
right ...

уфф, решение нашел.в силу того, что я только начинающий в программировании, хотелось бы выслушать конструктивную критику по поводу кода: program lab8;
uses
crt;
const
n = 20;
type
pos = 0..n;
var
st,res : string;
critical : array[0..n div 2] of pos;
temp &#58 ...

помогите пожалуйста идеей или накрайняк кодом. надо написать программу перевода выражения из инфиксной формы в префиксную без исполльзования деревьев, рекурсии и указателей. буду очень благодарен.