uses GraphABC;
type TRec = record
a : integer;
b : array[1..3] of char;
end;

var 
s : TRec := (a:2;b:(1,2,3,4));
begin
end.