with statement for fixed arrays

[samiam95124]

with statement for fixed arrays

This should work:

fixed
      f_arc: array [1..5] of 
         record s: packed array [1..4] of char; i: integer; c: char end = array
         record 'hi  ', 42,   'a' end,
         record 'way ', 12,   'q' end,
         record 'fork', 4567, 'z' end,
         record 'zip ', 8731, 'n' end,
         record 'lame', 82,   'i' end
      end;

for i := 1 to 5 do with f_arc[i] do write(s, i, c);