исключение из списка элементов с отрицательными значениями

[now2]

как сделать???????????????????????????? ???????списки вообще не учили в паскаль
задание: исключение из списка элементов с отрицательными значениями.
выручайте плиз((((((((((((((((((((((

[Utkin]

Смотря как реализован список.
Общая схема такова - проходите циклом по списку, ищите отрицательные элементы. Находите, удаляете. Ключевой момент удаление элемента из списка. Реализация удаления зависит от того каким образом у Вас сделан список. Ну и списки разные бывают...

[challengerr]

program c; uses crt;
type list=object public data:integer; next:^list; constructor unit; constructor init(a:integer); procedure print(); procedure add(a:integer); end;
constructor list.init; begin data:=0;next:=nil;end;
constructor list.init(a:integer);begin data:=a;next:=nil;end;
procedure list.print; var iterator:^list; begin writeln(data); iterator:=next; while(iterator<>nil) do begin writeln(iterator^.data); iterator:= iterator^.next;end; end;
procedure list.add(a:integer); var iterator:^list; begin if (next=nil) then begin new(next); next^.init(a); end else begin iterator:=next; while(iterator^.next <>nil) do begin iterator:=iterator^.next; end; new(iterator^.next); iterator^.next^.init(a); end;
var a1:list;
begin a1.data:=5; a1.add(6); end;

Сделал так, но выдает ошибку, что не может произвести операцию and

type plist=^list;
function del(b1:plist):plist;
var i,j:plist;
begin
if (b1=nil) then begin del:=b1;end; i:=b1;
while(i^.data<0 and i^.next <>nil) do begin i:=i^.next; end;
if (i^.data<0) then begin del:=nil; end
else begin
if (i^.next=nil)then begin del:=i; end
else begin j:=i; while(j^.next<>nil and j^.next^.data <0) do begin j:=j^.next; end; i^.next := j^.next; i^.next:=del(i^.next); del:=i; end;
end;
end;

Полная реализация списка есть в теме http://www.programmersforum.ru/showthread.php?t=87357