Списки и двоичное дерево Опции

[SeRGuSii]

1. Дан двунаправленный список целых чисел, получить однонаправленный список, содержащий все элементы исходного, порядковые номера которых являются простыми числами, а значения не являются простыми.
2. Дано два однонаправленных списка целых чисел, удалить во втором списке все элементы, которые больше среднего арифметического положительных элементов первого списка и продублировать все элементы второго списка, меньше среднего арифметического четных элементов первого списка.
3. Дано двоичное дерево. Найти сумму элементов дерева больших значения разности max-min

p.s. Ребята помогите, а то уже от этих задач пухнит голова, а зачет уже не загорами , исходники можно сделать и без описательной части в виде подпрограмм.

[volvo]

1. Дан двунаправленный список целых чисел, получить однонаправленный список, содержащий все элементы исходного, порядковые номера которых являются простыми числами, а значения не являются простыми.

Type
  ref=^node;
  node=record
    next:ref;
    data:integer;
  end;

tlist = record
first, last: ref;
end;

... { описание doubleref }
tdoublelist = record
  first, last: doubleref;
end;

procedure append(var list: tlist; T: integer);
var pt: ref;
begin
  new(pt);
  pt^.data := T;
  pt^.next := nil;

  if list.first = nil then list.first := pt
  else list.last^.next := pt;

  list.last := pt;
end;

procedure num_1(one: tdoublelist; var two: tlist);
var p: doubleref;
begin
  two.first := nil; two.last := nil;
  p := one.first; count := 1;
  while p <> nil do begin
    if isPrime(count) and not isPrime(p^.data) then
      append(two, p^.data);
    inc(count); p := p^.next;
  end;
end;

Реализацию isPrime можно взять здесь: FAQ: Замечательные числа