Задача с деревом. Опции

[Timon]

Добрый день.
Помогите, плиз. Дана вот такая задачка:

Текстовый файл содержит набор целых чисел. Прочитать его в память и сформировать бинарное дерево, содержащий номера элементов исходного массива, абсолютное значение которых является простым числом. Повторяющиеся значения в дерево не включать.
Порядок ввода исходных данных:
- имя файла с данными;
- файл с числами. Числа размещены в нескольких строках и отделены друг от друга пробелом или концом строки. Признаком окончания данных является конец файла.
Порядок вывода результатов:
- исходные данные;
- число элементов в дереве;
- элементы дерева в порядке убывания значений.

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

И ещё, если не сложно, напишите вкрадце как вывести дерево в порядке убывания значений. Просто сдавать уже завтра и с отчётом, а надо ещё одну программу дописать.
Заранее спасибо.

[volvo]

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

Это еще почему? Перед занесением в дерево проверяй элемент на дублирование... Что-то в этом роде:

Var
  arr: array[1 .. 20] of integer; { для примера }

Function DuplicateElement(index: integer): Boolean;
...
Begin
  DuplicateElement := False;
  For i := 1 To Pred(index) Do
    If arr[i] = arr[index] Then Begin
      DuplicateElement := True; Exit
    End;
End;

...
For i := 1 To n Do
  If not DuplicateElement(i) Then AddToTree(root, i);

Может быть можно и еще проще... ;)

И ещё, если не сложно, напишите вкрадце как вывести дерево в порядке убывания значений.

В порядке убывания каких значений? Индексов, или именно значений?