{

  "WorkStations": [
   {"Id": 1, "Description": "Первый элемент"},
   {"Id": 2, "Description": "Второй элемент"},
   {"Id": 3, "Description": "Третий элемент"}
  ],

  "Users": [
    { "User": "Sidoroff",  "Name": "Сидоров Кузьма Тимофеевич", "WorkStations": [1, 2]},
    { "User": "Petrov",  "Name": "Петров Петр Алексеевич", "WorkStations": [2]},
    { "User": "Ivanov",  "Name": "Иванов Иван Николаевич", "WorkStations": [1, 3]}
  ]
}

var
  fSA: TSuperArray;
  fSO: ISuperObject;
  fsrcSO: ISuperObject;
  i: Integer;
...
begin
  fSrcSO := SO(исходный_json);
  fSA := aValue.A['WorkStations'];
  for i := 0 to Pred(fSA.Length) do begin
    fSO := fSA.O[i];
...
  end;