Списки, список натуральных чисел Опции

[Jerry]

Здравствуйте.
Помогите пожалуйста напсиать программу. Из списка натуральных чилет удалить отрицательные компоненты.

[Jerry]

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

type
    List_r=^chis;
    chis=record
      value:real;
      next:list_r;
    end;
const n=6;
      a: array [1..n] of real=(1,-4,5,-3,7,3);
var
  m_list,curc,pred,current:list_r;
  next,i:byte;
//створення списку из масиву дійсних чисел
Procedure Create_list;
  var
    i:byte;
    begin
        new(m_list);
        current:=m_list;
          for i:=1 to n do begin
             current^.value:=a[i];
             if (i<n) then begin
               new(current^.next);
               current:=current^.next;
             end;
             writeln('elements insert to the list!');
             readln;
          end;
     end;
//виведення масиву дійсних чисел на екран
Procedure write_list(s:list_r);
  var
    curc:list_r;
    i:byte;
    begin
        writeln('-----List-----');
        i:=1;
        curc:=s;
        while curc<>nil do begin
             writeln('element ',i,'= ',curc^.value:5:1);
             readln;
             curc:=curc^.next;
             inc(i);
        end; readln;
 end;

begin
      create_list;
      write_list(m_list);

   curc:=m_list;
   pred:=curc;

while (curc<>nil)  do
  begin
          writeln('element ',i,'= ',curc^.value:5:1);
          readln;
  if  curc^.value<0 then
     curc^.value:=pred;  //а тут удаление... я не знаю как его сделать...
     pred^.next:=curc^.next;
            dispose(curc^.next);

  end;
       readln;
end.