procedure sum_sub_list(l:list_type;var l2:list_type);
var p,q:pos_type;
    sum,x,y:integer;
begin
         list_init(l2);
         p:=list_anchor(l2);
         sum:=0;
         q:=list_anchor(l);
         q:=list_next(l,q);
         while q<>list_end(l) do
         begin
                list_retrieve(l,q,x);
                q:=list_next(l,q);
                list_retrieve(l,q,y);
                sum:=x;
                while (y>x) and (q<>list_end(l)) do
                begin
                      sum:=sum+y;
                      x:=y;
                      if q<>list_end(l) then
                      begin
                           q:=list_next(l,q);
                           list_retrieve(l,q,y);
                      end;
                end;
                list_insert(l2,p,sum);
                p:=list_next(l2,p);
                sum:=0;
         end;
end;