j:=0 //счётчик незаполниных фридов
for i:=1 to maxI-1 do // пробегаем весь список
x:=cellvalue(i,1) // получаем значение клетки
y:=cellvalue(i+1,1) // также следующию
if y<>x+1 then // условие: следующая клетка больше придедущей на 1
begin
free_numbers[j]=x+1 //заносим в масив
j:=j+1 // увеличиваем счётчик
end
else next // если условие НЕ выполнено идём к следующей ячейке
end for
//печатаем получившийся масив
for i:=1 to j do
cellvalue(i,2):= free_numbers[i]
end for
вот такой у меня получился псевдокод
