Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.

varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin  //начинаем цикл 
 if f[i]<0 then begin       //проверяем первое условик 
  if schet=0 then begin     
 inc(schet);     
 for i2:=0 to i do       
 f[i2]:=0;     
 end else     
if schet=1 then  //второе условие     
 for i2:=i to high(f) do         
 f[i2]:=0;   end;end;
//end for