Дан массив из n частей,заменить элементы которые одинаковы индексу - нулем.

program zz1;
const n=10; //задаем количество элементов в массиве
var mas:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
mas[i]:=random(10)+1; //вводим числа в массив рандомно от 1 до 10
for i:=1 to n do
write(mas[i], ); //выводим числа из массива на экран
writeln; //перебегаем на новейшую строчку для вывода

for i:=1 to n do
if mas[i]=i then mas[i]:=0; //проверяем, если число из массива равно его номеру, то вместо числа в массив записываем ноль
for i:=1 to n do
write(mas[i], ); //выводим числа из массива на экран еще раз

end.