with t
     as (
        select 1  num_station, 0   dist_abs, 0  dist_to_prev from dual union all
        select 2  num_station, 3   dist_abs, 3  dist_to_prev from dual union all
        select 3  num_station, 8   dist_abs, 5  dist_to_prev from dual union all
        select 4  num_station, 14  dist_abs, 6  dist_to_prev from dual union all
        select 5  num_station, 16  dist_abs, 2  dist_to_prev from dual union all
        select 6  num_station, 23  dist_abs, 7  dist_to_prev from dual union all
        select 7  num_station, 31  dist_abs, 8  dist_to_prev from dual union all
        select 8  num_station, 41  dist_abs, 10 dist_to_prev from dual union all
        select 9  num_station, 57  dist_abs, 16 dist_to_prev from dual union all
        select 10 num_station, 74  dist_abs, 17 dist_to_prev from dual union all
        select 11 num_station, 110 dist_abs, 36 dist_to_prev from dual
        )

Declare
	TYPE StationAllocationTyp IS RECORD (
	num_station    NUMBER,
	dist_to_prev   NUMBER,
	allocated      NUMBER,
	new_dist       NUMBER
	);
	
	TYPE StAllocationArrTyp IS VARRAY(11) OF StationAllocationTyp;
	
	-- отсортированный по расстоянию между заправками массив
	st_allocation StAllocationArrTyp := StAllocationArrTyp(
	StationAllocationTyp(1,  0,  0, 0),
	StationAllocationTyp(5,  2,  0, 2),
	StationAllocationTyp(2,  3,  0, 3),
	StationAllocationTyp(3,  5,  0, 5),
	StationAllocationTyp(4,  6,  0, 6),
	StationAllocationTyp(6,  7,  0, 7),
	StationAllocationTyp(7,  8,  0, 8),
	StationAllocationTyp(8,  10, 0, 10),
	StationAllocationTyp(9,  16, 0, 16),
	StationAllocationTyp(10, 17, 0, 17),
	StationAllocationTyp(11, 36, 0, 36)
	);
	
	N NUMBER := 11;
	L NUMBER := 100000;
	
	l_max_dist_ind     NUMBER;
	l_max_dist_ind_tmp NUMBER;
Begin
	l_max_dist_ind := N;

	for i in 1 .. L loop
		l_max_dist_ind_tmp := N;
		for j in reverse 1 .. N loop
			if st_allocation(j).new_dist >= st_allocation(l_max_dist_ind).new_dist then
				-- размещение заправки
				st_allocation(j).allocated := st_allocation(j).allocated + 1;
				st_allocation(j).new_dist  := st_allocation(j).dist_to_prev / (st_allocation(j).allocated + 1);
				-- поиск нового максимального расстояния
				l_max_dist_ind := l_max_dist_ind_tmp;
				for k in reverse 1 .. j loop
					if st_allocation(k).new_dist > st_allocation(l_max_dist_ind).new_dist then
						l_max_dist_ind := k;
					end if;
				end loop k;

				exit;
				
			end if;

			if st_allocation(j).new_dist > st_allocation(l_max_dist_ind_tmp).new_dist then
				l_max_dist_ind_tmp := j;
			end if;
		end loop j;
	end loop i;
	
	for d in 1 .. N loop
		dbms_output.put_line(st_allocation(d).dist_to_prev || ',' || st_allocation(d).allocated || ',' || st_allocation(d).new_dist);
	end loop;
End;

Declare
	TYPE StationAllocationTyp IS RECORD (
	num_station    NUMBER,
	dist_to_prev   NUMBER,
	allocated      NUMBER,
	new_dist       NUMBER
	);
	
	TYPE StAllocationArrTyp IS VARRAY(11) OF StationAllocationTyp;
	
	st_allocation StAllocationArrTyp := StAllocationArrTyp(
	StationAllocationTyp(1,  0,  0, 0),
	StationAllocationTyp(2,  3,  0, 3),
	StationAllocationTyp(3,  5,  0, 5),
	StationAllocationTyp(4,  6,  0, 6),
	StationAllocationTyp(5,  2,  0, 2),
	StationAllocationTyp(6,  7,  0, 7),
	StationAllocationTyp(7,  8,  0, 8),
	StationAllocationTyp(8,  10, 0, 10),
	StationAllocationTyp(9,  16, 0, 16),
	StationAllocationTyp(10, 17, 0, 17),
	StationAllocationTyp(11, 36, 0, 36)
	);
	
	N NUMBER := 11;
	L NUMBER := 100;
	
	l_max_dist_ind     NUMBER;
Begin
	for i in 1 .. L loop
		-- поиск максимального расстояния
		l_max_dist_ind := 1;
		for j in 2 .. N loop
			if st_allocation(j).new_dist > st_allocation(l_max_dist_ind).new_dist then
				l_max_dist_ind := j;
			end if;
		end loop j;
		-- размещение заправки
		st_allocation(l_max_dist_ind).allocated := st_allocation(l_max_dist_ind).allocated + 1;
		st_allocation(l_max_dist_ind).new_dist  := st_allocation(l_max_dist_ind).dist_to_prev / (st_allocation(l_max_dist_ind).allocated + 1);
	end loop i;
	
	
	for d in 1 .. N loop
		dbms_output.put_line(st_allocation(d).dist_to_prev || ',' || st_allocation(d).allocated || ',' || st_allocation(d).new_dist);
	end loop;
End;

Declare
	TYPE StationAllocationTyp IS RECORD (
	num_station    NUMBER,
	dist_to_prev   NUMBER,
	allocated      NUMBER,
	new_dist       NUMBER
	);
	
	TYPE StAllocationArrTyp IS VARRAY(10) OF StationAllocationTyp;
	
	st_allocation StAllocationArrTyp;
	
	N   NUMBER := 10;
	L   NUMBER := 7;
	
	l_max_dist_ind     NUMBER;
Begin
	-- заполняем массив, сортировка по номеру заправки
	select num_station, dist_to_prev, 0 allocated, dist_to_prev as new_dist
	BULK COLLECT into st_allocation
	from
	(
	select 2  num_station, 3  dist_to_prev from dual union all
	select 3  num_station, 5  dist_to_prev from dual union all
	select 4  num_station, 8  dist_to_prev from dual union all
	select 5  num_station, 2  dist_to_prev from dual union all
	select 6  num_station, 7  dist_to_prev from dual union all
	select 7  num_station, 6  dist_to_prev from dual union all
	select 8  num_station, 10 dist_to_prev from dual union all
	select 9  num_station, 17 dist_to_prev from dual union all
	select 10 num_station, 16 dist_to_prev from dual union all
	select 11 num_station, 36 dist_to_prev from dual
	)
	order by num_station;

	for i in 1 .. L loop
		-- поиск максимального расстояния между заправками, начиная с наиболее удаленных
		l_max_dist_ind := N;
		if N > 1 then
			for j in reverse 1 .. (N-1) loop
				if st_allocation(j).new_dist > st_allocation(l_max_dist_ind).new_dist then
					l_max_dist_ind := j;
				end if;
			end loop j;
		end if;
		-- размещение заправки
		st_allocation(l_max_dist_ind).allocated := st_allocation(l_max_dist_ind).allocated + 1;
		st_allocation(l_max_dist_ind).new_dist  := st_allocation(l_max_dist_ind).dist_to_prev / (st_allocation(l_max_dist_ind).allocated + 1);
	end loop i;
	
	
	for d in 1 .. N loop
		dbms_output.put_line(st_allocation(d).num_station  || ', ' ||
		                     st_allocation(d).dist_to_prev || ', ' ||
		                     st_allocation(d).allocated    || ', ' ||
		                     st_allocation(d).new_dist);
	end loop d;
End;

create table MY_TEST_TABLE
    (
    NUM_STATION                   NUMBER not null primary key,
    DIST_TO_PREV                  NUMBER not null
    );
/

insert into MY_TEST_TABLE
	select num_station, dist_to_prev
	from
	(
	select 2  num_station, 3  dist_to_prev from dual union all
	select 3  num_station, 5  dist_to_prev from dual union all
	select 4  num_station, 8  dist_to_prev from dual union all
	select 5  num_station, 2  dist_to_prev from dual union all
	select 6  num_station, 7  dist_to_prev from dual union all
	select 7  num_station, 6  dist_to_prev from dual union all
	select 8  num_station, 10 dist_to_prev from dual union all
	select 9  num_station, 17 dist_to_prev from dual union all
	select 10 num_station, 16 dist_to_prev from dual union all
	select 11 num_station, 36 dist_to_prev from dual
	);
/

CREATE OR REPLACE TYPE my_st_all_typ AS OBJECT (
	NUM_STATION    NUMBER,
	DIST_TO_PREV   NUMBER,
	ALLOCATED      NUMBER,
	NEW_DIST       NUMBER);
/

CREATE OR REPLACE TYPE my_st_all_tab AS TABLE OF my_st_all_typ;
/

CREATE OR REPLACE PACKAGE my_test_pkg AUTHID DEFINER AS
	TYPE st_add_tab IS TABLE OF MY_TEST_TABLE%ROWTYPE;
	FUNCTION getAllocation(p_L in NUMBER) RETURN my_st_all_tab;
	FUNCTION addStation(p_L in NUMBER)    RETURN st_add_tab PIPELINED;
END my_test_pkg;
/

CREATE OR REPLACE PACKAGE BODY my_test_pkg AS

FUNCTION getAllocation(p_L in NUMBER) RETURN my_st_all_tab IS
	st_allocation      my_st_all_tab;
	N                  NUMBER;
	l_max_dist_ind     NUMBER;
	
	TYPE allcurtyp IS REF CURSOR;
	all_cv            allcurtyp;
BEGIN
	-- заполняем массив, сортировка по номеру заправки
	open all_cv for
		select my_st_all_typ(num_station, dist_to_prev, 0, dist_to_prev)
		from MY_TEST_TABLE
		where num_station > 1
		order by num_station;
	fetch all_cv BULK COLLECT into st_allocation;
	close all_cv;

	N := st_allocation.COUNT;
	
	if (p_L < 1) or (N = 0) then
		Return st_allocation;
	end if;
	
	for i in 1 .. p_L loop
		-- поиск максимального расстояния между заправками, начиная с наиболее удаленных
		l_max_dist_ind := N;
		if N > 1 then
			for j in reverse 1 .. (N-1) loop
				if st_allocation(j).new_dist > st_allocation(l_max_dist_ind).new_dist then
					l_max_dist_ind := j;
				end if;
			end loop j;
		end if;
		-- размещение заправки
		st_allocation(l_max_dist_ind).allocated := st_allocation(l_max_dist_ind).allocated + 1;
		st_allocation(l_max_dist_ind).new_dist  := st_allocation(l_max_dist_ind).dist_to_prev / (st_allocation(l_max_dist_ind).allocated + 1);
	end loop i;
	
	Return st_allocation;
END getAllocation;


FUNCTION addStation(p_L in NUMBER) RETURN st_add_tab PIPELINED IS
	st_allocation    my_st_all_tab;
	st_add_rec       MY_TEST_TABLE%ROWTYPE;
	N                NUMBER;
BEGIN
	st_allocation := getAllocation(p_L);
	
	N := st_allocation.COUNT;
	
	if N = 0 then
		Return;
	end if;
	
	st_add_rec.NUM_STATION  := 1;
	st_add_rec.DIST_TO_PREV := 0;
	PIPE ROW (st_add_rec);
	
	for i in 1 .. N loop
		for j in 1 .. (st_allocation(i).allocated + 1) loop
			st_add_rec.NUM_STATION  := st_add_rec.NUM_STATION + 1;
			st_add_rec.DIST_TO_PREV := st_allocation(i).new_dist;
			PIPE ROW (st_add_rec);
		end loop j;
	end loop i;
	
	Return;
END addStation;

END my_test_pkg;
/