program raf105;

const

 n = 10; //Размер массива

var

 a,b: array[1..n] of integer;

 i,c: integer;

begin

 writeln('Вводите ',n,' чисел по очереди');

 for i:=1 to n do

 begin

   write(i,'. ');

   readln(a[i]);

   if a[i]-10 = i

     then begin

       c:= c+1;

       b[c]:= a[i];

     end;

 end;

 if c > 0

   then begin

   write('Новый массив: ');

   for i:=1 to c do

     write(b[i],' ')

   end

   else writeln('Элементов превосходящих свой индекс на 10 не найдено.');

end.

PascalABC 3.4.2