Дан массив состоящий из 10 частей. заполнить его с клавиатуры. вывести

program zz1;

const n = 10;  //задаем количество элементов в массиве

var  i:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do // записываем в массив числа с клавиатуры

read(m[i]);

for i:=1 to n do  // организуем цикл, в котором переберем все числа массива

if m[i] gt; i then write(m[i], ); // проверяем, если элемент массива больше своего индекса, то выводим его на экран

end.