На списки...

[Neznau]

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

[МаксимNEWProgramm]

1.
Если использовать под программу это вы наверное хотите через модуль?вот пожалуйста простой код этой программы.

uses crt;
var a:array[1..50]of longint;
i,j,k,n:longint;
begin
clrscr;
k:=5;
n:=5;
for i:=1 to n do
read(a[i]);
i:=1;
while i<=n do
begin
      if a[i]<0 then
      begin
           n:=n+1;
           for j:=n downto i+2 do
           a[j]:=a[j-1];
           a[i+1]:=k;
           i:=i+2;
      end else
      i:=i+1;
end;
for i:=1 to n do
write(a[i],' ');
readkey;
end.