Verified answer

var
    m : array [1..10] of Integer;
    i : Integer;
begin

   Writeln('Введите массив:');
   for i := 1 to 10 do
   begin
      Write(i, ': ');
      Readln(m[i]);
   end;

   for i := 1 to 10 do
      if m[i] > i then
         Write(m[i], ' ');

   ReadLn;
end.