MODULE Test22;

TYPE
  Rider = RECORD i : INTEGER END;
  Array = ARRAY 10 OF Rider;

VAR
  Ride : Rider;
  Arr  : Array;

PROCEDURE X(R : Rider; A : Array);
  VAR
    r : Rider;
    a : Array;
BEGIN
  r.i := 666;
  a[2].i := 666;
  R.i := 789;
  A[7].i := 987;
END X;

BEGIN
  Ride.i := 123;
  Arr[7].i := 321;
  X(Ride, Arr);
  ASSERT(Ride.i = 123);
  ASSERT(Arr[7].i = 321);
END Test22.

Проверка аллокации локальных статических структур и копирования параметров.