Вот, держи :)
Если в будущем появятся вопросы -- пиши нам в форму обратной связи на learnpascal.ru 
Мы поможем :)



var a,arr_new: array[1..20] of integer;
i,d,count,j: integer;
begin
write('Введите d: ');
readln(d);
j:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] > d then
begin
arr_new[j]:=i;
inc(count);
inc(j);
end;
end;
writeln;
for j:=1 to count do write(arr_new[j],' ');
end.