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

type
  tList=^pList;
  pList=record
    n:Integer;
    p,x:tList;
  end;
var
  List,Tmp,Cur:tList;
  i,sp,sn:Integer;
begin
  New(List);List^.n:=Random(101)-50;List^.p:=nil;Tmp:=List;
  for i:=2 to 50 do begin New(Tmp^.x);Tmp^.x^.p:=Tmp;Tmp:=Tmp^.x;Tmp^.n:=Random(101)-50;end;
  Tmp^.x:=nil;
  Tmp:=List;repeat Write(#32,Tmp^.n);Tmp:=Tmp^.x;until Tmp=nil;
  sp:=0;sn:=0;
  while(List<>nil)and(List^.n<0)do begin Inc(sn,List^.n);Tmp:=List;List:=List^.x;List^.p:=nil;Dispose(Tmp);end;WriteLn;
  Cur:=List;repeat if Cur^.n<0 then begin Inc(sn,Cur^.n);Tmp:=Cur;Cur:=Cur^.p;Cur^.x:=Tmp^.x;if Cur^.x<>nil then Cur^.x^.p:=Cur;Dispose(Tmp);end else Inc(sp,Cur^.n);Tmp:=Cur;Cur:=Cur^.x;until Cur=nil;
  New(Tmp^.x);Tmp^.x^.p:=Tmp;Tmp:=Tmp^.x;Tmp^.n:=sp;New(Tmp^.x);Tmp^.x^.p:=Tmp;Tmp:=Tmp^.x;Tmp^.n:=sn;Tmp^.x:=nil;
  Tmp:=List;repeat Write(#32,Tmp^.n);Tmp:=Tmp^.x;until Tmp=nil;WriteLn;
end.

type
  tList=^pList;
  pList=record
    n:Integer;
    p,x:tList;
  end;
var
  List,Tmp,Cur:tList;
  i,sp,sn:Integer;
begin
  (* создание списка *)
  New(List);List^.n:=Random(101)-50;List^.p:=nil;Tmp:=List;
  for i:=2 to 50 do begin New(Tmp^.x);Tmp^.x^.p:=Tmp;Tmp:=Tmp^.x;Tmp^.n:=Random(101)-50;end;
  Tmp^.x:=nil;
  (* вывод списка *)
  Tmp:=List;repeat Write(#32,Tmp^.n);Tmp:=Tmp^.x;until Tmp=nil;WriteLn;
  sp:=0;sn:=0;
  (* суммирование и удаление отрицательных из головы списка *)
  while(List<>nil)and(List^.n<0)do begin Inc(sn,List^.n);Tmp:=List;List:=List^.x;List^.p:=nil;Dispose(Tmp);end;
  (* суммирование и удаление отрицательных из остального списка *)
  Cur:=List;repeat if Cur^.n<0 then begin Inc(sn,Cur^.n);Tmp:=Cur;Cur:=Cur^.p;Cur^.x:=Tmp^.x;if Cur^.x<>nil then Cur^.x^.p:=Cur;Dispose(Tmp);end else Inc(sp,Cur^.n);Tmp:=Cur;Cur:=Cur^.x;until Cur=nil;
  (* дабавление сумм списка *)
  New(Tmp^.x);Tmp^.x^.p:=Tmp;Tmp:=Tmp^.x;Tmp^.n:=sp;New(Tmp^.x);Tmp^.x^.p:=Tmp;Tmp:=Tmp^.x;Tmp^.n:=sn;Tmp^.x:=nil;
  (* снова вывод списка *)
  Tmp:=List;repeat Write(#32,Tmp^.n);Tmp:=Tmp^.x;until Tmp=nil;WriteLn;
end.