"Двунаправленный список" ---мальчики help плз., Маленькая помощь "Двунаправленный список" Опции

[..::Даша::..]

Приветик! :-) всем!
Мне нужна маленькая помощь )

program SOD_L3;
uses crt;
Type mem=^element;
     element=record
          inf1:real;
          inf2:real;
          next:mem;
          prev:mem;
       end;

var first,list,key,x:mem;
    i,c:integer;
begin
  clrscr;
     randomize;
     New(first);
     first^.next:=nil;
     first^.prev:=nil;
     first^.inf1:=random(20);
     first^.inf2:=random(20);
     x:=first;
     for i:=1 to 5 do
     begin
      New(x^.next);
      x:=x^.next;
      x^.inf1:=random(20);
      x^.inf2:=random(20);
      x^.next:=nil;
     end;
{--------------------------------------}
     writeln('      -Spisok-');
     writeln('______________________');
     list:=first;
     c:=0;
     while list^.next <> nil do
      begin
       c:=c+1;
       write('|',c,'|',list^.inf1:6:2);
       writeln('  |',c,'|',list^.inf2:6:2,' |');
       list:=list^.next;
      end;
{-----------------------------------------}
     writeln;
     for i:=1 to 5 do
     begin
      while list^.next <> nil do
       begin
        if list^.inf1>0 then list^.inf2:=-1;

       end;
   end;

    Dispose(list);

    readln;
end.

теперь нужно доделать тока "Додати 1 елемент після елементу, перше поле якого >0 "....

Пожалуйста помогите доделать потомучно срочненько нужно :-)...

Жду ответиков :-))

[мисс_граффити]

мальчики help плз.

Оль, наша помощь автору темы не нужна
Хочется ей дискриминацию устраивать - пусть, правилами это не запрещено.

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

это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.

[andriano]

[off]

Оль, наша помощь автору темы не нужна
...
это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.

Юль, тут еще надо разобраться, Даша - это сокращение от Дмитрий, Даниил или Дарий, а также чья именно выложена фотка.
[/off]

[off]Наиболее разумным для плохо владеющих русским языком авторов представляется выкладывать текст на 2-3 языках: родном, а также свой вариант перевода на русский и английский.
[/off]