В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do A[10-i]:= i ;
k:= A[9];
for i:=0 to 9 do
A[10-i]:= A[9-i];
A[1]:=k;