Var A: Array [10: Vector];
CADR a; FOR I=2 TO 9
C=A[I]+A[I-1]+A[I+1];
ENDCadr;

а) обращение к элементам вектора;

Var A: Array [10: Stream];
CADR a; FOR I=2 TO 9
C=A[I]+A[I-1]+A[I+1];
ENDCadr;

б) обращение к элементам потока

Рис.5. Примеры обращения к элементам вектора и к элементам потока