Generating a JSON string from Superobject

(*{"name": "Henri gourvest",/* This is a comment */"VIP": true, "telephones": ["000000000", "111111111111"], "age ":", "size": 1.83, "adresses": [{"Adress": "BlaBla", "City": "Metz", "PC": 57000},    {"adress": "BlaBla", "City": "Nantes", "PC": 44000}  ]}*)procedureSavejson;varjson, Json_sub:isuperobject;beginJSON:=So ; Json. s['name'] :='Henri gourvest'; Json. b['VIP'] :=TRUE; Json. o['Telephones'] :=SA ([]); Json. a['Telephones']. s[0] :='000000000'; Json. a['Telephones']. s[1] :='111111111111'; Json. i[' Age'] := -; Json. d['size'] :=1.83; Json. o['addresses'] :=SA ([]); Json_sub:=So ; Json_sub. s['Address'] :='BlaBla'; Json_sub. s[' City'] :='Metz'; Json_sub. i['PC'] :=57000; Json. a['addresses'].  ADD (json_sub); Json_sub. s['Address'] :='BlaBla'; Json_sub. s[' City'] :='Nantes'; Json_sub. i['PC'] :=44000; Json. a['addresses'].  ADD (json_sub); Json. SaveTo ('C:\json_out.txt'); JSON:=Nil; Json_sub:=Nil;End;

Generating a JSON string from Superobject